utils.R

gistfile1.txt

# Scripts em R para ajudar a abstrair algumas rotinas que rodo sempre.
# Para carregar: Cole em um arquivo `utils.R` e use `source("./utils.R")`
# no seu script.
library(data.table)
library(dplyr)
library(purrr)


# Read multiple files into a single Tibble
read_multiple_files <- function(directory, filetype="csv") {
  file_pattern <- paste("*.", filetype, sep="")
  
  tbl <- 
    directory %>%
    list.files(., pattern=file_pattern) %>% 
    paste(directory, ., sep="") %>%
    map_df(~fread(.)) %>%
    as_tibble(.)
}