R/readCBMS.R

In rickrick100/cbms: An Implementation of CBMS Report Generation

#' readCBMS Function
#'
#' This function reads all file in a directory from .can files
#' @param fread/read.csv for faster data reading and larger data
#' @keywords cbms
#' @export
#' @examples
#' readCBMS('fread')
#' 
#' readCBMS('read.csv')

readCBMS <- function(x) {
  temp = list.files(pattern="*.csv")
  #read all csv
  list2env(
    lapply(setNames(temp, make.names(gsub("*.csv$", "", temp))), 
           x), envir = .GlobalEnv)
}