Remove geo_link variable if redundant

stitam · Feb 8, 2024 · d4cef7c · d4cef7c
1 parent 6a1ea8b
commit d4cef7c
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/ncbi_parse_biosample_xml.R b/R/ncbi_parse_biosample_xml.R
@@ -136,6 +136,11 @@ ncbi_parse_biosample_xml_entry <- function(x, verbose = getOption("verbose")) {
       message(paste0("No status for BioSample ", main_attrs$accession, "."))
     }
   }
+  if (all(c("geo", "geo_link") %in% names(out)) & nrow(out) == 1) {
+    if (grepl(out$geo, out$geo_link)) {
+      out <- dplyr::select(out, -geo_link)
+    }
+  }
   if (nrow(out) > 1) {
     if (verbose) {
       message(paste0(