address glue syntax error in check_form_dots() (closes #1194)

Author: simonpcouch

R/convert_data.R

@@ -323,7 +323,7 @@ check_form_dots <- function(x, call = rlang::caller_env()) {
       c(
         "The argument{?s} {.arg {names(x)[!good_names]}} cannot be used to create
          the data.",
-        "Possible arguments are {.arg {.or {good_args}}."
+        "Possible arguments are {.arg {.or {good_args}}}."
       ),
       call = call
     )

tests/testthat/_snaps/boost_tree_C5.0.md

@@ -4,8 +4,9 @@
       res <- fit(lc_basic, funded_amnt ~ term, data = lending_club, engine = "C5.0",
       control = ctrl)
     Condition
-      Error in `glue()`:
-      ! Expecting '}'
+      Error in `.convert_form_to_xy_fit()`:
+      ! The argument `engine` cannot be used to create the data.
+      Possible arguments are subset or weights.
 
 # submodel prediction