Fix typos

stitam · Feb 16, 2024 · fe7eccb · fe7eccb
1 parent 9bada06
commit fe7eccb
Showing 1 changed file with 4 additions and 4 deletions.
diff --git 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)
 }