changes for new release

topepo · topepo · commit d5c6650b2b9b · 2025-08-22T12:08:23.000-04:00
diff --git a/tests/testthat/test-as-parsed-model.R b/tests/testthat/test-as-parsed-model.R
@@ -1,5 +1,3 @@
-context("parsed model")
-
 test_that("Simple linear regression matches lm()", {
   expect_is(
     as_parsed_model(
diff --git a/tests/testthat/test_dummy_var.R b/tests/testthat/test_dummy_var.R
@@ -1,5 +1,3 @@
-context("add_dummy_variables")
-
 test_that("Function create the correct columns", {
   cols_expected <- c("mpg", "disp", "hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb", "cyl_6", "cyl_8")
   expect_equal(
diff --git a/tests/testthat/test_kmeans.R b/tests/testthat/test_kmeans.R
@@ -1,5 +1,3 @@
-context("kmeans")
-
 test_that("Specifying variables works", {
   expect_is(
     simple_kmeans_db(mtcars, wt, mpg),
diff --git a/tests/testthat/test_kmeans_viz.R b/tests/testthat/test_kmeans_viz.R
@@ -1,10 +1,7 @@
-context("kmeans_viz")
-
 
 test_that("plot_kmeans() returns a ggplot2 object", {
-  expect_equal(
-    class(plot_kmeans(mtcars, mpg, wt, group = am)),
-    c("gg", "ggplot")
+  expect_true(
+    inherits(plot_kmeans(mtcars, mpg, wt, group = am), "ggplot")
   )
 })
 
diff --git a/tests/testthat/test_lr.R b/tests/testthat/test_lr.R
@@ -1,5 +1,3 @@
-context("Linear Regression")
-
 test_that("Simple linear regression matches lm()", {
   expect_equal(
     lm(wt ~ mpg, data = mtcars) %>%

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("parsed model")`
`2`		`-`
`3`	`1`	`test_that("Simple linear regression matches lm()", {`
`4`	`2`	`expect_is(`
`5`	`3`	`as_parsed_model(`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("add_dummy_variables")`
`2`		`-`
`3`	`1`	`test_that("Function create the correct columns", {`
`4`	`2`	`cols_expected <- c("mpg", "disp", "hp", "drat", "wt", "qsec", "vs", "am", "gear", "carb", "cyl_6", "cyl_8")`
`5`	`3`	`expect_equal(`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("kmeans")`
`2`		`-`
`3`	`1`	`test_that("Specifying variables works", {`
`4`	`2`	`expect_is(`
`5`	`3`	`simple_kmeans_db(mtcars, wt, mpg),`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("Linear Regression")`
`2`		`-`
`3`	`1`	`test_that("Simple linear regression matches lm()", {`
`4`	`2`	`expect_equal(`
`5`	`3`	`lm(wt ~ mpg, data = mtcars) %>%`