R/searchFormula.R

In sbalci/AutoJournalWatch: Auto Journal Watch.

searchFormula_pancreas <-
  paste0(
    "esearch -db pubmed -query \"",
    searchQuery_pancreas,
    "\" -released last_month ",
    " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_pancreas.csv"
  )

searchFormula_gallbladder <-
  paste0(
    "esearch -db pubmed -query \"",
    searchQuery_gallbladder,
    "\" -released last_month ",
    " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_gallbladder.csv"
  )

searchFormula_bileducts <-
  paste0(
    "esearch -db pubmed -query \"",
    searchQuery_bileducts,
    "\" -released last_month ",
    " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_bileducts.csv"
  )

searchFormula_ampulla <-
  paste0(
    "esearch -db pubmed -query \"",
    searchQuery_ampulla,
    "\" -released last_month ",
    " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_ampulla.csv"
  )




# searchFormula_pancreas <-
#   paste0(
#     "esearch -db pubmed -query \"",
#     searchQuery_pancreas,
#     "\" -datetype EDAT -days 110 ",
#     " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_pancreas.csv"
#   )
# 
# searchFormula_gallbladder <-
#   paste0(
#     "esearch -db pubmed -query \"",
#     searchQuery_gallbladder,
#     "\" -datetype EDAT -days 110 ",
#     " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_gallbladder.csv"
#   )
# 
# searchFormula_bileducts <-
#   paste0(
#     "esearch -db pubmed -query \"",
#     searchQuery_bileducts,
#     "\" -datetype EDAT -days 110 ",
#     " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_bileducts.csv"
#   )
# 
# searchFormula_ampulla <-
#   paste0(
#     "esearch -db pubmed -query \"",
#     searchQuery_ampulla,
#     "\" -datetype EDAT -days 110 ",
#     " | efetch -db pubmed -format uid > ~/AutoJournalWatch/data/newPMID_ampulla.csv"
#   )
# 
#