fix ena

uzh · Jun 13, 2024 · 89a39c4 · 89a39c4
1 parent 470be0d
commit 89a39c4
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/app-ENA.R b/R/app-ENA.R
@@ -93,6 +93,9 @@ ezMethodGetEnaData <- function(input=NA, output=NA, param=NA){
         } else {
             tryCatch({
                 experimentID <- xmlToList(runInfo)[[1]]$EXPERIMENT_REF$.attrs
+                if(length(experimentID) > 1){
+                    experimentID <- experimentID['accession']
+                }
                 cmd = paste0("curl -o ", experimentID,".xml ", "-X GET \'https://www.ebi.ac.uk/ena/browser/api/xml/",experimentID,"?download=true\'")
                 ezSystem(cmd)
                 xml <- xmlParse(paste0(experimentID, '.xml'))