unexport unused check helpers (#852)

Author: simonpcouch

NAMESPACE

@@ -157,8 +157,6 @@ export(boost_tree)
 export(cforest_train)
 export(check_empty_ellipse)
 export(check_final_param)
-export(check_model_doesnt_exist)
-export(check_model_exists)
 export(condense_control)
 export(contr_one_hot)
 export(control_parsnip)

R/aaa_models.R

@@ -123,8 +123,6 @@ check_eng_val <- function(eng) {
   invisible(NULL)
 }
 
-#' @rdname set_new_model
-#' @export
 check_model_exists <- function(model) {
   if (rlang::is_missing(model) || length(model) != 1 || !is.character(model)) {
     rlang::abort("Please supply a character string for a model name (e.g. `'linear_reg'`)")
@@ -139,8 +137,6 @@ check_model_exists <- function(model) {
   invisible(NULL)
 }
 
-#' @rdname set_new_model
-#' @export
 check_model_doesnt_exist <- function(model) {
   if (rlang::is_missing(model) || length(model) != 1 || !is.character(model)) {
     rlang::abort("Please supply a character string for a model name (e.g. `'linear_reg'`)")