fix error when no sample and platform meta data

Yunuuuu · Jul 21, 2023 · e9dbc2d · e9dbc2d
1 parent 5b70448
commit e9dbc2d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/parsers.R b/R/parsers.R
@@ -73,7 +73,13 @@ parse_gse_soft <- function(file_text, entity_type = "all", only_meta = FALSE) {
         entity_indices <- grep("^\\^(SAMPLE|PLATFORM)", file_text,
             perl = TRUE, value = FALSE
         )
-        soft_meta <- parse_meta(file_text[seq_len(entity_indices[[1L]] - 1L)])
+        if (length(entity_indices)) {
+            soft_meta <- parse_meta(
+                file_text[seq_len(entity_indices[[1L]] - 1L)]
+            )
+        } else {
+            soft_meta <- parse_meta(file_text)
+        }
         if (only_meta) {
             return(list(meta = soft_meta, gsm = NULL, gpl = NULL))
         }