remove unused functions (#698)

closes #610

Author: simonpcouch

R/aaa_models.R

@@ -260,12 +260,6 @@ check_mode_with_no_engine <- function(cls, mode) {
   }
 }
 
-check_engine_val <- function(eng) {
-  if (rlang::is_missing(eng) || length(eng) != 1 || !is.character(eng))
-    rlang::abort("Please supply a character string for an engine (e.g. `'lm'`).")
-  invisible(NULL)
-}
-
 check_arg_val <- function(arg) {
   if (rlang::is_missing(arg) || length(arg) != 1 || !is.character(arg))
     rlang::abort("Please supply a character string for the argument.")

R/descriptors.R

@@ -320,18 +320,6 @@ has_exprs <- function(x) {
   is_symbolic(x)
 }
 
-make_descr <- function(object) {
-  if (length(object$args) > 0)
-    expr_main <- map_lgl(object$args, has_exprs)
-  else
-    expr_main <- FALSE
-  if (length(object$eng_args) > 0)
-    expr_eng_args <- map_lgl(object$eng_args, has_exprs)
-  else
-    expr_eng_args <- FALSE
-  any(expr_main) | any(expr_eng_args)
-}
-
 # Locate descriptors -----------------------------------------------------------
 
 # take a model spec, see if any require descriptors

R/engine_docs.R

@@ -289,22 +289,6 @@ sort_c <- function(x) {
   withr::with_collate("C", sort(x))
 }
 
-get_sorted_unique_engines <- function(x) {
-  engines <- x$engine
-  engines <- unique(engines)
-  engines <- sort_c(engines)
-  engines
-}
-combine_prefix_with_engines <- function(prefix, engines) {
-  if (length(engines) == 0L) {
-    engines <- "No engines currently available"
-  } else {
-    engines <- glue::glue_collapse(engines, sep = ", ")
-  }
-
-  glue::glue("{prefix} {engines}")
-}
-
 # ------------------------------------------------------------------------------
 
 #' Locate and show errors/warnings in engine-specific documentation

R/fit.R

@@ -360,10 +360,6 @@ inher <- function(x, cls, cl) {
 
 # ------------------------------------------------------------------------------
 
-
-has_both_or_none <- function(a, b)
-  (!is.null(a) & is.null(b)) | (is.null(a) & !is.null(b))
-
 check_interface <- function(formula, data, cl, model) {
   inher(formula, "formula", cl)
   inher(data, c("data.frame", "tbl_spark"), cl)

R/misc.R

@@ -119,10 +119,6 @@ levels_from_formula <- function(f, dat) {
   res
 }
 
-is_spark <- function(x)
-  isTRUE(unname(x$method$fit$func["pkg"] == "sparklyr"))
-
-
 #' @export
 #' @keywords internal
 #' @rdname add_on_exports
@@ -211,17 +207,6 @@ check_outcome <- function(y, spec) {
   invisible(NULL)
 }
 
-
-# Get's a character string of varible names used as the outcome
-# in a terms object
-terms_y <- function(x) {
-  att <- attributes(x)
-  resp_ind <- att$response
-  y_expr <- att$predvars[[resp_ind + 1]]
-  all.vars(y_expr)
-}
-
-
 # ------------------------------------------------------------------------------
 
 #' @export

tests/testthat/test_misc.R

@@ -41,35 +41,6 @@ test_that('other objects', {
 
 # ------------------------------------------------------------------------------
 
-context("getting y names from terms")
-
-test_that('getting y names from terms', {
-
-  expect_equal(
-    parsnip:::terms_y(lm(cbind(mpg, disp)  ~., data = mtcars)$terms),
-    c("mpg", "disp")
-  )
-
-  expect_equal(
-    parsnip:::terms_y(lm(mpg  ~., data = mtcars)$terms),
-    "mpg"
-  )
-
-  expect_equal(
-    parsnip:::terms_y(lm(log(mpg)  ~., data = mtcars)$terms),
-    "mpg"
-  )
-
-  expect_equal(
-    parsnip:::terms_y(terms(  ~., data = mtcars)),
-    character(0)
-  )
-
-
-})
-
-# ------------------------------------------------------------------------------
-
 test_that('S3 method dispatch/registration', {
 
   expect_error(