R/loaddata.R

In Framus94/HierarchiesAndCareers:

#' Title
#'
#' @return a list of data frames scraped from artist-info.com and degruyter.com/view/db/akl
#' @export
#'
#' @examples
#' df.list <- loaddata()
loaddata <- function(){

  # get path to .csv files
  full.path <- list.dirs("data") %>%
    list.files(".csv", full.names = T)

  # extract file name from full path
  df.names <- full.path %>%
    str_remove("data/.+/([0-9][.][0-9]_)?") %>%
    str_remove(".csv")

  # import .csv files and set names
  df.list <- full.path %>%
    purrr::map(~ read.csv2(., stringsAsFactors = F)) %>%
    purrr::set_names(df.names)

  return(df.list)

}