Add function for coercing uids to numeric

stitam · Dec 22, 2024 · 8519771 · 8519771
1 parent 48011c6
commit 8519771
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -204,4 +204,16 @@ get_mc_cores <- function(mc_cores, verbose = getOption("verbose")) {
     mc_cores <- n_cores
   }
   return(mc_cores)
+}
+
+#' Convert a vector to numeric
+#' 
+#' @param x vector; Vector to convert.
+#' @noRd
+as_numeric <- function(x) {
+  numeric_x <- suppressWarnings(as.numeric(x))
+  if (any(is.na(numeric_x) & !is.na(x))) {
+    stop("Query must be either an ncbi_uid object or a vector of UIDs.")
+  }
+  return(numeric_x)
 }