R/read_csv_over_dir.R

#' @name read_csv_over_dir
#' @title read_csv
#' @param dir_name file_name to load
#' @return list of dataframe of loaded CSV
#' @export
read_csv_over_dir <- function (dir_name) {
  files <- list.files(dir_name, pattern = '*.csv', full.names = TRUE, recursive = FALSE)
  return(lapply(files, function (file) { read_csv(file) }))
}
a1trl9/svnc documentation built on Dec. 2, 2019, 12:03 a.m.