Change kernlab to use formula interface, add indicator encoding

Author: juliasilge

R/svm_poly_data.R

@@ -49,25 +49,39 @@ set_fit(
   eng = "kernlab",
   mode = "regression",
   value = list(
-    interface = "matrix",
-    protect = c("x", "y"),
+    interface = "formula",
+    protect = c("formula", "data"),
     func = c(pkg = "kernlab", fun = "ksvm"),
     defaults = list(kernel = "polydot")
   )
 )
 
+set_encoding(
+  model = "svm_poly",
+  eng = "kernlab",
+  mode = "regression",
+  options = list(predictor_indicators = FALSE)
+)
+
 set_fit(
   model = "svm_poly",
   eng = "kernlab",
   mode = "classification",
   value = list(
-    interface = "matrix",
-    protect = c("x", "y"),
+    interface = "formula",
+    protect = c("formula", "data"),
     func = c(pkg = "kernlab", fun = "ksvm"),
     defaults = list(kernel = "polydot")
   )
 )
 
+set_encoding(
+  model = "svm_poly",
+  eng = "kernlab",
+  mode = "classification",
+  options = list(predictor_indicators = FALSE)
+)
+
 set_pred(
   model = "svm_poly",
   eng = "kernlab",