Read all files in a folder(sub-folder) into a dataframe in R.

read_all_files_folder.R

# Date: 2019-09-24

list_of_files <- list.files(path = here("data", "dap_download_may2016_genes"), 
                            recursive = TRUE, pattern = "\\.txt$", full.names = TRUE)

# I discard the amp-DAP data.
list_of_files <- list_of_files[!str_detect(list_of_files, "amp")]

dap <- list_of_files %>%
    set_names(.) %>%
    map_df(read_tsv) %>% 
    rename(regulator = "tf.at_id", target = "target.at_id")

write_tsv(dap, here("data", "arabidopsis_dapseq_all_noamp.tsv.gz"))