## ----echo = FALSE------------------------------------------------------------- knitr::opts_chunk$set( message = FALSE, warning = FALSE ) ## ----eval = FALSE------------------------------------------------------------- # install.packages("bib2df") ## ----------------------------------------------------------------------------- library(bib2df) path <- system.file("extdata", "LiteratureOnCommonKnowledgeInGameTheory.bib", package = "bib2df") df <- bib2df(path) df ## ----------------------------------------------------------------------------- head(df$AUTHOR) ## ----------------------------------------------------------------------------- df <- bib2df(path, separate_names = TRUE) head(df$AUTHOR) ## ----------------------------------------------------------------------------- bib1 <- system.file("extdata", "LiteratureOnCommonKnowledgeInGameTheory.bib", package = "bib2df") bib2 <- system.file("extdata", "r.bib", package = "bib2df") paths <- c(bib1, bib2) x <- lapply(paths, bib2df) class(x) head(x) res <- dplyr::bind_rows(x) class(res) head(res) ## ----message=FALSE------------------------------------------------------------ library(dplyr) library(ggplot2) library(tidyr) df %>% filter(!is.na(JOURNAL)) %>% group_by(JOURNAL) %>% summarize(n = n()) %>% arrange(desc(n)) %>% slice(1:3) ## ----------------------------------------------------------------------------- df %>% mutate(age = 2017 - YEAR) %>% summarize(m = median(age)) ## ----fig.height = 5, fig.width = 7-------------------------------------------- df %>% select(YEAR, AUTHOR) %>% unnest() %>% ggplot() + aes(x = YEAR, y = reorder(full_name, desc(YEAR))) + geom_point() ## ----------------------------------------------------------------------------- df$AUTHOR[[10]] ## ----------------------------------------------------------------------------- df$AUTHOR[[10]]$first_name[2] <- "Eddie" df$AUTHOR[[10]]$full_name[2] <- "Eddie Dekel" df$AUTHOR[[10]] ## ----eval=FALSE--------------------------------------------------------------- # newFile <- tempfile() # df2bib(df, file = newFile)