#' Read delimited files and/or rds files from a directory
#'
#' @param directory_path Absolute path of directory
#'
#' @return
#' @export
#'
#' @examples \dontrun{read_directory()
read_directory <- function(directory_path) {
file_paths <- list.files(directory_path, full.names = TRUE)
for (file_path in file_paths) {
file_format <- tools::file_ext(file_path)
tibble_name <- basename(file_path) %>% sub(".rds$|.csv$", "", .)
if (file_format == "csv") {
tbl <- readr::read_csv(file_path)
}
else if (file_format == "rds") {
tbl <- readr::read_rds(file_path)
}
else {
warning(paste0(file_path, " is invalid file type."))
}
assign(tibble_name, tbl, envir = globalenv())
message(paste0("File ", file_path, " assigned to variable: ", tibble_name))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.