Merge pull request #277 from tidymodels/no-stan-output

prevent long output by stan models

Author: topepo

R/linear_reg.R

@@ -67,6 +67,8 @@
 #'
 #' \Sexpr[results=rd]{parsnip:::show_fit(parsnip:::linear_reg(), "stan")}
 #'
+#' (note that the `refresh` default prevents logging of the estimation process. Change this value in `set_engine()` will show the logs)
+#'
 #' \pkg{spark}
 #'
 #' \Sexpr[results=rd]{parsnip:::show_fit(parsnip:::linear_reg(), "spark")}

R/linear_reg_data.R

@@ -179,7 +179,7 @@ set_fit(
     interface = "formula",
     protect = c("formula", "data", "weights"),
     func = c(pkg = "rstanarm", fun = "stan_glm"),
-    defaults = list(family = expr(stats::gaussian))
+    defaults = list(family = expr(stats::gaussian), refresh = 0)
   )
 )
 

R/logistic_reg.R

@@ -65,6 +65,8 @@
 #'
 #' \Sexpr[results=rd]{parsnip:::show_fit(parsnip:::logistic_reg(), "stan")}
 #'
+#' (note that the `refresh` default prevents logging of the estimation process. Change this value in `set_engine()` will show the logs)
+#'
 #' \pkg{spark}
 #'
 #' \Sexpr[results=rd]{parsnip:::show_fit(parsnip:::logistic_reg(), "spark")}

R/logistic_reg_data.R

@@ -359,7 +359,7 @@ set_fit(
     interface = "formula",
     protect = c("formula", "data", "weights"),
     func = c(pkg = "rstanarm", fun = "stan_glm"),
-    defaults = list(family = expr(stats::binomial))
+    defaults = list(family = expr(stats::binomial), refresh = 0)
   )
 )
 

man/linear_reg.Rd

@@ -9,4 +9,4 @@ ctrl          <- control_parsnip(verbosity = 1, catch = FALSE)
 caught_ctrl   <- control_parsnip(verbosity = 1, catch = TRUE)
 quiet_ctrl    <- control_parsnip(verbosity = 0, catch = TRUE)
 
-run_glmnet <- utils::compareVersion('3.6.0', as.character(getRversion())) < 0
+run_glmnet <- utils::compareVersion('3.6.0', as.character(getRversion())) > 0

man/logistic_reg.Rd

@@ -37,7 +37,8 @@ test_that('primary arguments', {
                  formula = expr(missing_arg()),
                  data = expr(missing_arg()),
                  weights = expr(missing_arg()),
-                 family = expr(stats::gaussian)
+                 family = expr(stats::gaussian),
+                 refresh = 0
                )
   )
   expect_equal(basic_spark$method$fit$args,
@@ -142,7 +143,8 @@ test_that('engine arguments', {
                  weights = expr(missing_arg()),
                  chains = new_empty_quosure(1),
                  iter = new_empty_quosure(5),
-                 family = expr(stats::gaussian)
+                 family = expr(stats::gaussian),
+                 refresh = 0
                )
   )
 

tests/testthat/helper-objects.R

@@ -38,7 +38,8 @@ test_that('primary arguments', {
                  formula = expr(missing_arg()),
                  data = expr(missing_arg()),
                  weights = expr(missing_arg()),
-                 family = expr(stats::binomial)
+                 family = expr(stats::binomial),
+                 refresh = 0
                )
   )
   expect_equal(basic_spark$method$fit$args,
@@ -152,7 +153,8 @@ test_that('engine arguments', {
       weights = expr(missing_arg()),
       chains = new_empty_quosure(1),
       iter = new_empty_quosure(5),
-      family = expr(stats::binomial)
+      family = expr(stats::binomial),
+      refresh = 0
     )
   )