reformatting for quoting arguments and no others() arg

Author: topepo

tests/testthat/test_boost_tree.R

@@ -136,4 +136,4 @@ test_that('bad input', {
   expect_error(translate(boost_tree(formula = y ~ x)))
 })
 
-###################################################################
+# ------------------------------------------------------------------------------

tests/testthat/test_boost_tree_C50.R

@@ -1,18 +1,22 @@
 library(testthat)
-context("boosted tree execution with C5.0")
 library(parsnip)
 library(tibble)
 
-###################################################################
+# ------------------------------------------------------------------------------
+
+context("boosted tree execution with C5.0")
 
 data("lending_club")
 lending_club <- head(lending_club, 200)
 num_pred <- c("funded_amnt", "annual_inc", "num_il_tl")
 lc_basic <- boost_tree(mode = "classification")
+
 ctrl <- fit_control(verbosity = 1, catch = FALSE)
 caught_ctrl <- fit_control(verbosity = 1, catch = TRUE)
 quiet_ctrl <- fit_control(verbosity = 0, catch = TRUE)
 
+# ------------------------------------------------------------------------------
+
 test_that('C5.0 execution', {
 
   skip_if_not_installed("C50")

tests/testthat/test_boost_tree_spark.R

@@ -1,10 +1,11 @@
 library(testthat)
-context("boosted tree execution with spark")
 library(parsnip)
 library(dplyr)
 
 # ------------------------------------------------------------------------------
 
+context("boosted tree execution with spark")
+
 ctrl <- fit_control(verbosity = 1, catch = FALSE)
 caught_ctrl <- fit_control(verbosity = 1, catch = TRUE)
 quiet_ctrl <- fit_control(verbosity = 0, catch = TRUE)

tests/testthat/test_boost_tree_xgboost.R

@@ -1,9 +1,9 @@
 library(testthat)
-context("boosted tree execution with xgboost")
 library(parsnip)
 
+# ------------------------------------------------------------------------------
 
-###################################################################
+context("boosted tree execution with xgboost")
 
 num_pred <- names(iris)[1:4]
 
@@ -13,6 +13,8 @@ ctrl <- fit_control(verbosity = 1, catch = FALSE)
 caught_ctrl <- fit_control(verbosity = 1, catch = TRUE)
 quiet_ctrl <- fit_control(verbosity = 0, catch = TRUE)
 
+# ------------------------------------------------------------------------------
+
 test_that('xgboost execution, classification', {
 
   skip_if_not_installed("xgboost")
@@ -83,7 +85,7 @@ test_that('xgboost classification prediction', {
 })
 
 
-###################################################################
+# ------------------------------------------------------------------------------
 
 num_pred <- names(mtcars)[3:6]
 

tests/testthat/test_convert_data.R

@@ -16,7 +16,7 @@ Puromycin_miss <- Puromycin
 Puromycin_miss$state[20] <- NA
 Puromycin_miss$conc[1] <- NA
 
-###################################################################
+# ------------------------------------------------------------------------------
 
 context("Testing formula -> xy conversion")
 
@@ -308,7 +308,7 @@ test_that("numeric x and multivariate y, matrix composition", {
   expect_equal(as.matrix(mtcars[1:6, -(1:2)]), new_obs$x)
 })
 
-###################################################################
+# ------------------------------------------------------------------------------
 
 context("Testing xy -> formula conversion")
 

tests/testthat/test_descriptors.R

@@ -1,7 +1,12 @@
 library(testthat)
-context("descriptor variables")
 library(parsnip)
 
+# ------------------------------------------------------------------------------
+
+context("descriptor variables")
+
+# ------------------------------------------------------------------------------
+
 template <- function(col, pred, ob, lev, fact, dat, x, y) {
   lst <- list(.n_cols = col, .n_preds = pred, .n_obs = ob,
               .n_levs = lev, .n_facts = fact, .dat = dat,
@@ -40,34 +45,34 @@ test_that("requires_descrs", {
   }
 
   # core args
-  expect_false(requires_descrs(rand_forest()))
-  expect_false(requires_descrs(rand_forest(mtry = 3)))
-  expect_false(requires_descrs(rand_forest(mtry = varying())))
-  expect_true(requires_descrs(rand_forest(mtry = .n_cols())))
-  expect_false(requires_descrs(rand_forest(mtry = expr(3))))
-  expect_false(requires_descrs(rand_forest(mtry = quote(3))))
-  expect_true(requires_descrs(rand_forest(mtry = fn())))
-  expect_true(requires_descrs(rand_forest(mtry = fn2())))
+  expect_false(parsnip:::requires_descrs(rand_forest()))
+  expect_false(parsnip:::requires_descrs(rand_forest(mtry = 3)))
+  expect_false(parsnip:::requires_descrs(rand_forest(mtry = varying())))
+  expect_true(parsnip:::requires_descrs(rand_forest(mtry = .n_cols())))
+  expect_false(parsnip:::requires_descrs(rand_forest(mtry = expr(3))))
+  expect_false(parsnip:::requires_descrs(rand_forest(mtry = quote(3))))
+  expect_true(parsnip:::requires_descrs(rand_forest(mtry = fn())))
+  expect_true(parsnip:::requires_descrs(rand_forest(mtry = fn2())))
 
   # descriptors in `others`
-  expect_false(requires_descrs(rand_forest(arrrg = 3)))
-  expect_false(requires_descrs(rand_forest(arrrg = varying())))
-  expect_true(requires_descrs(rand_forest(arrrg = .n_obs())))
-  expect_false(requires_descrs(rand_forest(arrrg = expr(3))))
-  expect_true(requires_descrs(rand_forest(arrrg = fn())))
-  expect_true(requires_descrs(rand_forest(arrrg = fn2())))
+  expect_false(parsnip:::requires_descrs(rand_forest(arrrg = 3)))
+  expect_false(parsnip:::requires_descrs(rand_forest(arrrg = varying())))
+  expect_true(parsnip:::requires_descrs(rand_forest(arrrg = .n_obs())))
+  expect_false(parsnip:::requires_descrs(rand_forest(arrrg = expr(3))))
+  expect_true(parsnip:::requires_descrs(rand_forest(arrrg = fn())))
+  expect_true(parsnip:::requires_descrs(rand_forest(arrrg = fn2())))
 
   # mixed
   expect_true(
-    requires_descrs(
+    parsnip:::requires_descrs(
       rand_forest(
         mtry = 3,
         arrrg = fn2())
     )
   )
 
   expect_true(
-    requires_descrs(
+    parsnip:::requires_descrs(
       rand_forest(
         mtry = .n_cols(),
         arrrg = 3)