fix typo in case weights error message (#989)

Author: simonpcouch

R/case_weights.R

@@ -78,7 +78,7 @@ case_weights_allowed <- function(spec) {
   if (nrow(model_info) != 1) {
     rlang::abort(
       glue::glue(
-        "Error in geting model information for model {mod_type} with engine {mod_eng} and mode {mod_mode}."
+        "Error in getting model information for model {mod_type} with engine {mod_eng} and mode {mod_mode}."
       )
     )
   }

tests/testthat/_snaps/case-weights.md

@@ -0,0 +1,9 @@
+# case weights with formula method -- unregistered model spec
+
+    Code
+      bag_mars("regression") %>% fit(Sale_Price ~ Longitude + Latitude, data = ames,
+      case_weights = wts)
+    Condition
+      Error in `case_weights_allowed()`:
+      ! Error in getting model information for model bag_mars with engine earth and mode regression.
+

tests/testthat/test-case-weights.R

@@ -110,6 +110,25 @@ test_that('case weights with formula method', {
   expect_equal(coef(lm_wt_fit$fit), coef(lm_sub_fit$fit))
 })
 
+test_that('case weights with formula method -- unregistered model spec', {
+
+  skip_if_not_installed("modeldata")
+  data("ames", package = "modeldata")
+  ames$Sale_Price <- log10(ames$Sale_Price)
+
+  set.seed(1)
+  wts <- runif(nrow(ames))
+  wts <- ifelse(wts < 1/5, 0L, 1L)
+  ames_subset <- ames[wts != 0, ]
+  wts <- frequency_weights(wts)
+
+  expect_snapshot(
+    error = TRUE,
+    bag_mars("regression") %>%
+      fit(Sale_Price ~ Longitude + Latitude, data = ames, case_weights = wts)
+  )
+})
+
 test_that('case weights with formula method that goes through `fit_xy()`', {
 
   skip_if_not_installed("modeldata")