R/import_files.R

In bbica/MetaViral:

#' @title import_files
#' @description imports files
#' #'
#' @param path path where the files are present
#' @param filetype example: "tsv" "csv", default set to tsv
#' @param col_names TRUE if first row is the header, the default
#' @import dplyr
#' @importFrom purrr map_df
#' @examples
#' \dontrun{
#' quiet(cat("test"))
#' quiet(warning("test"))
#' quiet(warning("test"), all=T)
#' }
#' # This is a function that suppresses log info
#' @export

import_files <- function(path, filetype="tsv", col_names=TRUE){
  '%>%' <- tidyr::`%>%`
  wd_dram<-path
  setwd(wd_dram)
  if (filetype=="tsv"){
    if (col_names==TRUE){
      export_files <-
        list.files(pattern = paste0("*.", filetype),
                   full.names = T) %>%
        purrr::map_df(~list_tsv(.,col_names2=TRUE))
    }else{
      export_files <-
        list.files(pattern = paste0("*.", filetype),
                   full.names = T) %>%
        purrr::map_df(~list_tsv(.,col_names2=FALSE))
    }

  }else if (filetype=="csv"){
    if (col_names==TRUE){
      export_files <-
        list.files(pattern = paste0("*.", filetype),
                   full.names = T) %>%
        purrr::map_df(~list_csv(.,col_names3=TRUE))

    }else{
      export_files <-
        list.files(pattern = paste0("*.", filetype),
                   full.names = T) %>%
        purrr::map_df(~list_csv(.,col_names3=FALSE))
    }

  }else{
    warning("Filetype must be 'csv' or 'tsv'")
  }

  return(export_files)
}
#end