add pubmed trend function

GangLiLab · Jun 9, 2022 · 95861ae · 95861ae
1 parent 09c483e
commit 95861ae
Showing 1 changed file with 21 additions and 1 deletion.
diff --git a/R/getPubmed.R b/R/getPubmed.R
@@ -36,7 +36,27 @@ getPubmed <- function(term,add_term=NULL,num=100){
 
 
 
-#---BELOW DEGRADED! ---#
+#--- sub function for plotting ---#
+getPubmedTrend <- function(term,add_term=NULL,period){
+  if (!requireNamespace("europepmc", quietly = TRUE)) {
+    utils::install.packages("europepmc")
+  }
+  if(!is.null(add_term)){
+    supp = paste0('AND ABSTRACT:',add_term) %>% paste(collapse = ' ')
+  }else{
+    supp = NULL
+  }
+
+  res = lapply(term , function(i){
+    europepmc::epmc_hits_trend(paste0('ABSTRACT:',i," ",supp), period = period, synonym = FALSE)
+  })
+  names(res) = term
+
+  return(res)
+}
+
+
+#--- DEPRECATED---#
 # genPubmed <- function(id,
 #                       keywords,
 #                       field = "ALL") {