There’s a lot of unnecessary code in your function. You can simplify it to:
load_data <- function(path) {
files <- dir(path, pattern = '\\.csv', full.names = TRUE)
tables <- lapply(files, read.csv)
do.call(rbind, tables)
}
pollutantmean <- load_data("specdata")
Be aware that do.call
+ rbind
is relatively slow. You might find dplyr::bind_rows
or data.table::rbindlist
to be substantially faster.