R/readCombinedFiles.R

In sbalci/AutoJournalWatch: Auto Journal Watch.

pancreas_recent_PMID <-
    readr::read_csv(file      = "~/AutoJournalWatch/data/PMIDList_pancreas.csv",
                    col_names = c("PMID"),
                    readr::cols(PMID = readr::col_character())) %>% 
    unique() %>% 
    dplyr::arrange(., dplyr::desc(PMID))

gallbladder_recent_PMID <-
    readr::read_csv(file      = "~/AutoJournalWatch/data/PMIDList_gallbladder.csv",
                    col_names = c("PMID"),
                    readr::cols(PMID = readr::col_character())) %>% 
    unique() %>% 
    dplyr::arrange(., dplyr::desc(PMID))

bileducts_recent_PMID <-
    readr::read_csv(file      = "~/AutoJournalWatch/data/PMIDList_bileducts.csv",
                    col_names = c("PMID"),
                    readr::cols(PMID = readr::col_character())) %>% 
    unique() %>% 
    dplyr::arrange(., dplyr::desc(PMID))

ampulla_recent_PMID <-
    readr::read_csv(file      = "~/AutoJournalWatch/data/PMIDList_ampulla.csv",
                    col_names = c("PMID"),
                    readr::cols(PMID = readr::col_character())) %>% 
    unique() %>% 
    dplyr::arrange(., dplyr::desc(PMID))