From fe7eccb21f41ae0853d9cd95fe6771ac79079f20 Mon Sep 17 00:00:00 2001 From: Tamas Stirling Date: Fri, 16 Feb 2024 21:02:59 +0100 Subject: [PATCH] Fix typos --- R/ncbi_parse_biosample_xml.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/ncbi_parse_biosample_xml.R b/R/ncbi_parse_biosample_xml.R index dbdfd1d..a391ad1 100644 --- a/R/ncbi_parse_biosample_xml.R +++ b/R/ncbi_parse_biosample_xml.R @@ -65,14 +65,14 @@ ncbi_parse_biosample_xml <- function( } if (verbose) message("Successful.") out <- dplyr::bind_rows(out) - out <- dplyr::relocate(out, biosample_uid) - out <- dplyr::relocate(out, biosample, .after = biosample_uid) + out <- dplyr::relocate(out, "biosample_uid") + out <- dplyr::relocate(out, "biosample", .after = "biosample_uid") biosample_df <- dplyr::bind_rows(biosample_df, out) } out <- tibble::as_tibble(biosample_df) out <- out[, order(unname(sapply(out, function(x) sum(is.na(x)))))] - out <- dplyr::relocate(out, biosample_uid) - out <- dplyr::relocate(out, biosample, .after = biosample_uid) + out <- dplyr::relocate(out, "biosample_uid") + out <- dplyr::relocate(out, "biosample", .after = "biosample_uid") return(out) }