checking if variable is being used as a outcome and predictor about hardhat HOT 2 CLOSED

library(hardhat)

.formula <- Sepal.Width ~ Sepal.Width

# //////////////////////////////////////////////////////////////////////////////

# mold() lets you use them
x <- mold(.formula, iris)

x$predictors
#> # A tibble: 150 x 1
#>    Sepal.Width
#>          <dbl>
#>  1         3.5
#>  2         3  
#>  3         3.2
#>  4         3.1
#>  5         3.6
#>  6         3.9
#>  7         3.4
#>  8         3.4
#>  9         2.9
#> 10         3.1
#> # … with 140 more rows

x$outcomes
#> # A tibble: 150 x 1
#>    Sepal.Width
#>          <dbl>
#>  1         3.5
#>  2         3  
#>  3         3.2
#>  4         3.1
#>  5         3.6
#>  6         3.9
#>  7         3.4
#>  8         3.4
#>  9         2.9
#> 10         3.1
#> # … with 140 more rows

# //////////////////////////////////////////////////////////////////////////////

# a warning is thrown here
mf <- model.frame(.formula, iris)
head(model.matrix(terms(mf), mf))
#> Warning in model.matrix.default(terms(mf), mf): the response appeared on
#> the right-hand side and was dropped
#> Warning in model.matrix.default(terms(mf), mf): problem with term 1 in
#> model.matrix: no columns are assigned
#>   (Intercept)
#> 1           1
#> 2           1
#> 3           1
#> 4           1
#> 5           1
#> 6           1

# //////////////////////////////////////////////////////////////////////////////

# the info is here
x$preprocessor$predictors$names
#> [1] "Sepal.Width"
x$preprocessor$outcomes$names
#> [1] "Sepal.Width"

# //////////////////////////////////////////////////////////////////////////////

validate_lhs_rhs_duplication <- function(preprocessor) {
  
  if (!inherits(preprocessor, "terms_preprocessor")) {
    return(preprocessor)
  }
  
  original_predictor_names <- preprocessor$predictors$names
  original_outcome_names <- preprocessor$outcomes$names
  
  dups <- intersect(original_predictor_names, original_outcome_names)
  
  if (length(dups) > 0) {
    
    dups <- glue::glue_collapse(glue::single_quote(dups), ", ")
    
    rlang::abort(glue::glue(
      "The supplied `formula` cannot have the same term ",
      "as both an outcome and a predictor. The following terms ",
      "appear on both sides of the formula: {dups}."
    ))
  }
  
  invisible(preprocessor)
}

validate_lhs_rhs_duplication(x$preprocessor)
#> Error: The supplied `formula` cannot have the same term as both an outcome and a predictor. The following terms appear on both sides of the formula: 'Sepal.Width'.
#> Backtrace:
#>     █
#>  1. └─global::validate_lhs_rhs_duplication(x$preprocessor)