Remove the internal utility .to_numeric()? (#358)

Fixes #206
easystats · Jan 19, 2025 · 36f85e9 · 36f85e9
1 parent 87c72f9
commit 36f85e9
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 11 deletions.
diff --git a/R/estimate_grouplevel.R b/R/estimate_grouplevel.R
@@ -80,7 +80,7 @@ estimate_grouplevel <- function(model, type = "random", ...) {
   random <- random[c("Group", "Level", names(random)[!names(random) %in% c("Group", "Level")])]
 
   # Sort
-  random <- random[order(random$Group, .to_numeric(random$Level), random$Parameter), ]
+  random <- random[order(random$Group, datawizard::coerce_to_numeric(random$Level), random$Parameter), ]
 
   # Clean
   row.names(random) <- NULL

diff --git a/R/utils.R b/R/utils.R
@@ -1,13 +1,3 @@
-#' @keywords internal
-#' @noRd
-.to_numeric <- function(x) {
-  tryCatch(as.numeric(as.character(x)),
-    error = function(e) x,
-    warning = function(w) x
-  )
-}
-
-
 #' @keywords internal
 #' @noRd
 .brms_aux_elements <- function() {