Najko Jahn njahn82

library(rcrossref)
library(purrr)

my_dois <-
  c(
    "skksks",
    "10.5281/zenodo.4032609",
    "10.1667/rr13708.1",
    "10.1016/s0021-9258(19)52311-0",

# import csv file
tt <- read.delim("~/Downloads/vanished_v2.csv", sep = ";")
# table dimensions
dim(tt)
#> [1] 807  61
# empty rows at bottom like row 635
tt[635,]
#>     Source If.Identified.by.second.source Journal.Name ISSN E.ISSN URL
#> 635

library(europepmc)
library(tidyverse)
library(cowplot)
#> 
#> ********************************************************
#> Note: As of version 1.0.0, cowplot does not change the
#>   default ggplot2 theme anymore. To recover the previous
#>   behavior, execute:
#>   theme_set(theme_cowplot())

    select
        pk_items,
        count,
        wos_b_2019.d_percentiles.c_max,
        wos_b_2019.classifications.classification,
        wos_b_2019.items.pubyear,
        wos_b_2019.items.doctype,
        wos_b_2019.items.pubtype,

library(tidyverse)
library(jsonlite)
#> 
#> Attaching package: 'jsonlite'
#> The following object is masked from 'package:purrr':
#> 
#>     flatten
base_df <- jsonlite::stream_in(file("~/Downloads/base_dois.json"), verbose = FALSE)
#> Warning in readLines(con, n = pagesize, encoding = "UTF-8"): incomplete

library(rcrossref)
cr_works(filter = c(
	issn = "1099-1255",
	from_pub_date = "2013-01-01",
	until_pub_date = "2019-12-31",
	type = "journal-article"
    ),
limit = 500)

	#' Get most current Open APC snapshot
	#'
	#' Open APC shares several csv files via GitHub, which contain data about
	#' institutional spending for open access articles.
	#'
	#'
	#' @param open_apc_cols character vector representing Open APC collections.
	#' See `open_apc_collections()` for an overview.
	#'
	#' @importFrom dplyr filter `%>%` inner_join

	library(tidyverse)
	my_df <- readr::read_csv("data/u4_13_17.csv")
	no_group <- my_df %>%
	filter(is.na(CA))
	no_group %>%
	select(PY, UT, C1) %>%
	mutate(adresses = strsplit(C1, "; \\[")) -> tt
	tt %>%
	unnest() %>%
	tidyr::separate(adresses, sep ="] ", c("authors", "address"), fill = "left") %>%

	---
	output: github_document
	---

	```{r, echo = FALSE}
	knitr::opts_chunk$set(
	comment = "#>",
	collapse = TRUE,
	warning = FALSE,
	message = FALSE

	library(tidyverse)
	library(rcrossref)
	library(janitor)
	library(crminer)
	my_dois <- readxl::read_xlsx("dois_elsevier.xlsx") %>%
	clean_names()
	# call Crossref
	cr_df <- cr_works(my_dois$digital_object_identifier_doi, .progress = "text")
	# get CC licensed articles
	cc_df <- cr_df$data %>%