Você poderia dar uma olhada no pacote rentrez
para R. Você pode usar a função entrez_search
para obter os IDs GEO para os estudos relacionados à sua consulta e, em seguida, a função entrez_summary
para os resultados. Assim, por exemplo:
x <- rentrez :: entrez_search (db = "gds", term = paste0 ("tolvaptan AND gse [ETYP]"), use_history = T) res <- rentrez :: entrez_summary (db = "gds", id = x $ ids) str (res)
Onde res
será uma lista contendo objetos do esummary
classe. Então, você pode usar a seguinte linha para obter os números de acesso GSE relacionados ao tolvaptan:
lapply (res, `[[`, "gse")
Então você poderia colocar esta função em um loop substituindo "tolvaptan" por seus medicamentos:
drug <- c ("drugA", "drugB", "drugC") por (drug in drogas) {x <- rentrez :: entrez_search (db = "gds", term = paste0 (drug, "AND gse [ETYP]")) res <- rentrez :: entrez_summary (db = "gds", id = x $ ids) lapply (res, `[[`, "gse")}
Dê uma olhada na rentrez
documentação para mais detalhes.