library(rentrez)
lookup.srp <- function(srp) {
r_search <- entrez_search(db="gds", term=paste0(srp, "[ACCN]"))
r_search$ids
}
get.sra.bioproject <- function(srp) {
ids <- lookup.srp(srp)
if(length(ids) != 1) { stop("Got multiple ids\n") }
gse.id <- entrez_summary(db="gds", id=ids)$accession
get.gse.bioproject(gse.id)
}
> get.sra.bioproject("SRP212810")
[1] "PRJNA552370"