remnoved old notes

Author: topepo

tests/testthat/test_linear_reg.R

@@ -207,8 +207,6 @@ quiet_ctrl <- fit_control(verbosity = 0, catch = TRUE)
 
 test_that('lm execution', {
 
-
-  # passes interactively but not on R CMD check
   expect_error(
     res <- fit(
       iris_basic,
@@ -240,7 +238,6 @@ test_that('lm execution', {
     )
   )
 
-  # passes interactively but not on R CMD check
   lm_form_catch <- fit(
     iris_basic,
     iris_bad_form,

tests/testthat/test_linear_reg_stan.R

@@ -23,7 +23,6 @@ test_that('stan_glm execution', {
 
   library(rstanarm)
 
-  # passes interactively but not on R CMD check
   expect_error(
     res <- fit(
       iris_basic,

tests/testthat/test_rand_forest_randomForest.R

@@ -162,7 +162,6 @@ test_that('randomForest regression execution', {
 
   skip_if_not_installed("randomForest")
 
-  # check: passes interactively but not on R CMD check
   expect_error(
     fit(
       car_basic,
@@ -185,7 +184,6 @@ test_that('randomForest regression execution', {
     regexp = NA
   )
 
-  # check: passes interactively but not on R CMD check
   randomForest_form_catch <- fit(
     bad_rf_reg,
     car_form,

tests/testthat/test_rand_forest_ranger.R

@@ -29,7 +29,6 @@ test_that('ranger classification execution', {
 
   skip_if_not_installed("ranger")
 
-  # check: passes interactively but not on R CMD check
   expect_error(
     res <- fit(
       lc_ranger,
@@ -62,7 +61,6 @@ test_that('ranger classification execution', {
     )
   )
 
-  # check: passes interactively but not on R CMD check
   ranger_form_catch <- fit(
     bad_ranger_cls,
     funded_amnt ~ term,
@@ -179,7 +177,6 @@ test_that('ranger regression execution', {
 
   skip_if_not_installed("ranger")
 
-  # check:passes interactively but not on R CMD check
   expect_error(
     res <- fit(
       car_basic,
@@ -190,7 +187,7 @@ test_that('ranger regression execution', {
     ),
     regexp = NA
   )
-  # check: passes interactively but not on R CMD check
+
   expect_error(
     res <- fit_xy(
       car_basic,
@@ -202,7 +199,7 @@ test_that('ranger regression execution', {
     regexp = NA
   )
 
-  # check: passes interactively but not on R CMD check
+
   ranger_form_catch <- fit(
     bad_ranger_reg,
     mpg ~ .,