Update R/external_data.R

fmichonneau · fmichonneau · commit a0341613f404 · 2026-01-15T11:07:03.000+01:00
diff --git a/R/external_data.R b/R/external_data.R
@@ -38,7 +38,7 @@ study_external_IDs <- function(study_id) {
     external_data_url = data_deposit
   )
   if (!is.null(pmid)) {
-    # res$popset_ids <- entrez_link(dbfrom = "pubmed", db = "popset", id = pmid)[["links"]][["pubmed_popset"]]
+    res$popset_ids <- entrez_link(dbfrom = "pubmed", db = "popset", id = pmid)[["links"]][["pubmed_popset"]]
     res$nucleotide_ids <- entrez_link(dbfrom = "pubmed", db = "nuccore", id = pmid)[["links"]][["pubmed_nuccore"]]
   }
   structure(res, class = c("study_external_data", "list"), id = study_id)

Original file line number	Diff line number	Diff line change
`@@ -38,7 +38,7 @@ study_external_IDs <- function(study_id) {`
`38`	`38`	`external_data_url = data_deposit`
`39`	`39`	`)`
`40`	`40`	`if (!is.null(pmid)) {`
`41`		`- # res$popset_ids <- entrez_link(dbfrom = "pubmed", db = "popset", id = pmid)[["links"]][["pubmed_popset"]]`
	`41`	`+ res$popset_ids <- entrez_link(dbfrom = "pubmed", db = "popset", id = pmid)[["links"]][["pubmed_popset"]]`
`42`	`42`	`res$nucleotide_ids <- entrez_link(dbfrom = "pubmed", db = "nuccore", id = pmid)[["links"]][["pubmed_nuccore"]]`
`43`	`43`	`}`
`44`	`44`	`structure(res, class = c("study_external_data", "list"), id = study_id)`