R/get_grid_db.R

In tilltnet/rdimensions: Access dimensions.ai API

#' Download current version of grid.ac database
#' @import dplyr
#' @export
get_grid_db <- function() {
  file_name <- tempfile("grid_db_file")
  grid_dir <- paste0(tempdir(), "/grid/")
  xml2::read_html("https://www.grid.ac/downloads") %>%
    rvest::html_nodes("a.btn") %>%
    rvest::html_attr("href") %>%
    .[1] %>%
    utils::download.file(destfile = file_name)

  utils::unzip(file_name, exdir = grid_dir)

  dir(tempdir())

  grid_csv_l <-
    dir(grid_dir, pattern = ".csv", recursive = TRUE, full.names = TRUE) %>%
    map(readr::read_csv)

  names(grid_csv_l) <-
    gsub(".csv", "", dir(grid_dir, pattern = ".csv", recursive = TRUE)) %>%
    strsplit("/") %>%
    unlist() %>%
    .[. != "full_tables"] %>%
    {ifelse(. == "grid", ., paste0("grid_", .))}

  grid_csv_l
}