Make coerce_to_numeric() internal

NAMESPACE

@@ -181,7 +181,6 @@ export(centre)
 export(change_code)
 export(change_scale)
 export(coef_var)
-export(coerce_to_numeric)
 export(colnames_to_row)
 export(column_as_rownames)
 export(compact_character)

R/data_restoretype.R

@@ -21,13 +21,12 @@
 #' fixed <- data_restoretype(data, reference = iris)
 #' summary(fixed)
 #' @export
-
 data_restoretype <- function(data, reference = NULL, ...) {
   for (col in names(data)) {
     # No reference data (regular fixing) ----------------
     if (is.null(reference)) {
       if (is.character(data[[col]])) {
-        data[[col]] <- coerce_to_numeric(data[[col]])
+        data[[col]] <- .coerce_to_numeric(data[[col]])
       }
     } else {
       if (is.factor(reference[[col]]) && !is.factor(data[[col]])) {
@@ -36,11 +35,11 @@ data_restoretype <- function(data, reference = NULL, ...) {
       }
 
       if (is.numeric(reference[[col]]) && !is.numeric(data[[col]])) {
-        data[[col]] <- coerce_to_numeric(as.character(data[[col]]))
+        data[[col]] <- .coerce_to_numeric(as.character(data[[col]]))
       }
 
       if (is.character(reference[[col]]) && !is.character(data[[col]])) {
-        data[[col]] <- as.character(data[[col]])
+        data[[col]] <- .coerce_to_numeric(data[[col]])
       }
     }
   }

R/data_to_long.R

@@ -166,7 +166,7 @@ data_to_long <- function(data,
   # create a temp id so that we know how to rearrange the rows once the data is
   # stacked
   not_stacked <- data[, not_selected, drop = FALSE]
-  not_stacked[["_Rows"]] <- coerce_to_numeric(row.names(data))
+  not_stacked[["_Rows"]] <- .coerce_to_numeric(row.names(data))
 
   # stack the selected columns
   stacked_data <- .stack(data[, cols, drop = FALSE])[, 2:1]

R/to_numeric.R

@@ -266,20 +266,8 @@ to_numeric.character <- function(x,
 }
 
 
-
-#' Convert to Numeric (if possible)
-#'
-#' Tries to convert vector to numeric if possible (if no warnings or errors).
-#' Otherwise, leaves it as is.
-#'
-#' @param x A vector to be converted.
-#'
-#' @examples
-#' coerce_to_numeric(c("1", "2"))
-#' coerce_to_numeric(c("1", "2", "A"))
-#' @return Numeric vector (if possible)
-#' @export
-coerce_to_numeric <- function(x) {
+#' @keywords internal
+.coerce_to_numeric <- function(x) {
   tryCatch(as.numeric(as.character(x)),
     error = function(e) x,
     warning = function(w) x