Springer Books

springer-books.R

library(DBI)
library(readr)
library(htmlTable)
library(dplyr)
library(janitor)

springer_search <- read_csv("https://link.springer.com/search/csv?previous-end-year=2020&facet-content-type=%22Book%22&date-facet-mode=in&previous-start-year=2020&facet-language=%22En%22&showAll=false&query=&facet-start-year=2020&facet-end-year=2020")

springer_search <- springer_search %>%
  clean_names() %>%
  select(year = publication_year, item_title, doi = item_doi, url)

springer_db <- dbConnect(RSQLite::SQLite(), "springer-books.sqlite")

if (dbExistsTable(springer_db, "search")) {
  springer_search <- springer_search %>%
    anti_join(dbReadTable(springer_db, "search"))
}

dbWriteTable(springer_db, "search", springer_search %>% select(doi), append = TRUE)

if (nrow(springer_search) > 0) htmlTable(springer_search)