Update tests for kernlab formula interface

Author: juliasilge

tests/testthat/test_svm_poly.R

@@ -17,8 +17,8 @@ test_that('primary arguments', {
   expect_equal(
     object = basic_kernlab$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       kernel = "polydot"
     )
   )
@@ -31,8 +31,8 @@ test_that('primary arguments', {
   expect_equal(
     object = degree_kernlab$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       kernel = "polydot",
       kpar = degree_obj
     )
@@ -47,8 +47,8 @@ test_that('primary arguments', {
   expect_equal(
     object = degree_scale_kernlab$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       kernel = "polydot",
       kpar = degree_scale_obj
     )
@@ -63,8 +63,8 @@ test_that('engine arguments', {
   expect_equal(
     object = translate(kernlab_cv, "kernlab")$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       cross = new_empty_quosure(10),
       kernel = "polydot"
     )

tests/testthat/test_svm_rbf.R

@@ -16,8 +16,8 @@ test_that('primary arguments', {
   expect_equal(
     object = basic_kernlab$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       kernel = "rbfdot"
     )
   )
@@ -30,8 +30,8 @@ test_that('primary arguments', {
   expect_equal(
     object = rbf_sigma_kernlab$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       kernel = "rbfdot",
       kpar = rbf_sigma_obj
     )
@@ -46,8 +46,8 @@ test_that('engine arguments', {
   expect_equal(
     object = translate(kernlab_cv, "kernlab")$method$fit$args,
     expected = list(
-      x = expr(missing_arg()),
-      y = expr(missing_arg()),
+      formula = expr(missing_arg()),
+      data = expr(missing_arg()),
       cross = new_empty_quosure(10),
       kernel = "rbfdot"
     )