https://github.com/njahn82/jct_data

Programmatically fetch JCT Transformative Agreement data
https://github.com/njahn82/jct_data

Last synced: 28 days ago
JSON representation

Programmatically fetch JCT Transformative Agreement data

• Host: GitHub
• URL: https://github.com/njahn82/jct_data
• Owner: njahn82
• License: cc0-1.0
• Created: 2022-12-21T13:53:34.000Z (about 2 years ago)
• Default Branch: main
• Last Pushed: 2024-04-08T02:07:52.000Z (9 months ago)
• Last Synced: 2024-04-08T03:24:32.638Z (9 months ago)
• Language: R
• Size: 123 MB
• Stars: 2
• Watchers: 2
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE.md

Awesome Lists containing this project

README

        
## Weekly Transformative Agreement Data dumps

This repo contains weekly dumps of [public transformative agreement data](https://journalcheckertool.org/transformative-agreements/) as provided by the [Journal Checker Tool](https://journalcheckertool.org/) from the [cOAlition S](https://www.coalition-s.org/). 

## Data

Data are stored in the `data/` folder, comprising two files

- `data/jct_journals.csv`: complete dump of journals metadata associated with transformative agreements

- `data/jct_institutions.csv`: complete dump of institutions metadata associated with transformative agreements

## Snapshots

```{r, results='asis', message=FALSE, echo=FALSE}

library(dplyr)

library(lubridate)

library(knitr)

git_log <- readr::read_tsv("log.txt", col_names = FALSE)

git_log |>

  select(commit = 1, date = 2) |>

  filter(lubridate::wday(date) == 2 | date ==  max(date)) |>

  dplyr::mutate(link = paste0("",commit, "")) |>

  select(`Time added` = date, `Commit` = link) |>

  knitr::kable()

```

```{r echo =FALSE, message=FALSE, warning=FALSE}

# Most recent data update

max_update <- git_log |>

  head(1) |>

  mutate(my_date = as_date(X2)) |>

  pull(my_date)

```

## Latest stats as on `r max_update`

```{r echo =FALSE, message=FALSE, warning=FALSE}

jct_journals <- readr::read_csv("data/jct_journals.csv")

jct_institutions <- readr::read_csv("data/jct_institutions.csv")

```

- `r length(unique(jct_journals$esac_id))` transformative agreements with ESAC ID

- `r format(length(unique(jct_journals$journal_name)), big.mark=",")` journal titles covered

- `r format(length(unique(jct_institutions$inst_name)), big.mark=",")` institutions participating

- `r format(length(unique(jct_institutions$ror_id)), big.mark=",")` institutions covered have a ROR-ID

## License

CCO