sra

YuLab-SMU · Nov 5, 2024 · af16a53 · af16a53
1 parent b3f6eb4
commit af16a53
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/inst/prototype/sra.r b/inst/prototype/sra.r
@@ -0,0 +1,12 @@
+get_runinfo <- function(sra_id) {
+    x <- rentrez::entrez_fetch(db='sra', rettype='runinfo', id = sra_id)
+    read.csv(textConnection(x))
+}
+
+
+
+id <- "SRX5137765"
+d <- get_runinfo(id)
+head(d,2)
+
+sprintf("fastq-dump %s", d$Run[1:3])