Najko Jahn njahn82

library(purrr)
library(rcrossref)

my_dois <- c("ieieie", "10.7717/peerj.2323")

map(my_dois, purrr::possibly(rcrossref::cr_works), .progress = TRUE) |> map_df("data")
#> Warning: 404 (client error): /works/ieieie - Resource not found.
#> # A tibble: 1 × 32
#&gt; alternative.id archive_ na. na..1 container.title created deposited

Abstracts in Crossref

Get abstract counts per year and publisher

SELECT
cr_year,
publisher,
COUNT(DISTINCT doi) AS cr_articles,

library(tidyverse)
library(bigrquery)
library(DBI)

Connection

library(tidyverse)
#> Warning: package 'tibble' was built under R version 4.1.1
#> Warning: package 'readr' was built under R version 4.1.1
library(biblids) # install via GitHub https://github.com/subugoe/biblids

tt <- readr::read_csv("~/Downloads/DOIs.txt")
#> Rows: 40479 Columns: 1
#> ── Column specification ────────────────────────────────────────────────────────
#> Delimiter: ","

library(tidyverse)
# raw subject table
subject_mag_raw <- readr::read_csv("data/NPL_DOI_FOS.csv",
  col_types =  cols(.default = "c"))
subject_mag_raw %>%
  # Represents https://academic.microsoft.com/paper/2518129109/
  filter(doi == "10.7717/peerj.2369") %>%
  # Only top level subjects
  filter(is.na(fos_1)) %>%

library(rvest)
library(tidyverse)
library(janitor)
#> 
#> Attaching package: 'janitor'
#> The following objects are masked from 'package:stats':
#> 
#>     chisq.test, fisher.test
esac <-

library(rcrossref)
library(purrr)

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

	---
	title: "Toward a Unified Theory of High-Energy Metaphysics: Silly String Theory"
	date: 2008-02-29
	author:
	- name: Josiah Carberry
	id: jc
	orcid: 0000-0002-1825-0097
	email: [email protected]
	affiliation:
	- name: Brown University

	#' Manipulating, analyzing and exporting data with tidyverse
	#' https://datacarpentry.org/R-ecology-lesson/03-dplyr.html

	library(tidyverse)

	#' dplyr
	#' - the most common data manipulation tasks
	#' - https://github.com/rstudio/cheatsheets/raw/master/data-transformation.pdf
	#' tidyr
	#' - reshape your data

	#' 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