#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.