R/my_csv_reader.R

In margauxwehr/packageexo: Package combining functions save as excel, draw names and multi excel

#' Title
#'
#' @param folder from wd
#' @import assertthat
#' @importFrom utils read.csv2
#' @return result
#' @export
#'
#' @examples my_csv_reader(folder = getwd())
my_csv_reader <- function(folder=getwd()) {
  assertthat::assert_that(is.null(folder))
  assertthat::assert_that(is.character(folder))

  l <- list.files(path=folder, pattern = ".*csv$", full.names=TRUE)
  result <- lapply(l,read.csv2)

  return(result)
}