From d4cef7c955fc6cdd206af83272f57dc3e8541cea Mon Sep 17 00:00:00 2001
From: Tamas Stirling <stirling.tamas@gmail.com>
Date: Thu, 8 Feb 2024 12:18:25 +0100
Subject: [PATCH] Remove geo_link variable if redundant

---
 R/ncbi_parse_biosample_xml.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/ncbi_parse_biosample_xml.R b/R/ncbi_parse_biosample_xml.R
index 04ed17f..eacad3d 100644
--- 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(