R/appendcsv.R

In sbalci/AutoJournalWatch: Auto Journal Watch.

pancreas_rss$items %>%
    dplyr::select(link) %>%
    stringr::str_match_all(string = ., pattern = "[0-9]+") %>%
    unlist() %>%
    readr::write_lines(x = ., path = "~/AutoJournalWatch/data/PMIDList_pancreas.csv", sep = "\n", append = TRUE)

gallbladder_rss$items %>%
    dplyr::select(link) %>%
    stringr::str_match_all(string = ., pattern = "[0-9]+") %>%
    unlist() %>%
    readr::write_lines(x = ., path = "~/AutoJournalWatch/data/PMIDList_gallbladder.csv", append = TRUE)

bileducts_rss$items %>%
    dplyr::select(link) %>%
    stringr::str_match_all(string = ., pattern = "[0-9]+") %>%
    unlist() %>%
    readr::write_lines(x = ., path = "~/AutoJournalWatch/data/PMIDList_bileducts.csv", append = TRUE)

ampulla_rss$items %>%
    dplyr::select(link) %>%
    stringr::str_match_all(string = ., pattern = "[0-9]+") %>%
    unlist() %>%
    readr::write_lines(x = ., path = "~/AutoJournalWatch/data/PMIDList_ampulla.csv", append = TRUE)