RC 1.3.2

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: parsnip
 Title: A Common API to Modeling and Analysis Functions
-Version: 1.3.1.9000
+Version: 1.3.2
 Authors@R: c(
     person("Max", "Kuhn", , "max@posit.co", role = c("aut", "cre")),
     person("Davis", "Vaughan", , "davis@posit.co", role = "aut"),

NEWS.md

@@ -1,4 +1,10 @@
-# parsnip (development version)
+# parsnip 1.3.2
+
+* Switch to base R pipe
+
+* Requires changes for CRAN's "No Suggests" check.
+
+* Avoid issues with reading from package files. (#1271)
 
 # parsnip 1.3.1
 

R/boost_tree.R

@@ -552,7 +552,7 @@ xgb_by_tree <- function(tree, object, new_data, type, ...) {
 #' @param weights An optional numeric vector of case weights. Note
 #'  that the data used for the case weights will not be used as a
 #'  splitting variable in the model (see
-#'  \url{https://www.rulequest.com/see5-info.html} for
+#'  `https://www.rulequest.com/see5-info.html` for
 #'  Quinlan's notes on case weights).
 #' @param minCases An integer for the smallest number of samples
 #'  that must be put in at least two of the splits.

R/engine_docs.R

@@ -208,7 +208,7 @@
   }
 
   exts <-
-    utils::read.delim(system.file("models.tsv", package = "parsnip")) |>
+    model_info_table |>
     dplyr::filter(model == mod) |>
     dplyr::group_by(engine, mode) |>
     dplyr::summarize(extensions = sum(!is.na(pkg)), .groups = "drop") |>

man/rmd/aaa.Rmd

@@ -32,7 +32,7 @@ check_pkg_for_docs(parsnip:::extensions())
 make_mode_list <- function(mod, eng) {
   modes <- c("regression", "classification", "censored regression")
   exts <-
-    utils::read.delim(system.file("models.tsv", package = "parsnip")) |>
+    model_info_table |>
     dplyr::filter(model == mod & engine == eng) |> 
     dplyr::mutate(mode = factor(mode, levels = modes)) |> 
     dplyr::arrange(mode)
@@ -128,7 +128,7 @@ descr_models <- function(mod, eng) {
 
 uses_extension <- function(mod, eng, mod_mode) {
   exts <-
-    utils::read.delim(system.file("models.tsv", package = "parsnip")) |>
+    model_info_table |>
     dplyr::filter(
       model == mod & 
         engine == eng & 

man/rmd/bart_dbarts.Rmd

@@ -56,31 +56,33 @@ Some relevant arguments that can be passed to `set_engine()`:
 
 ```{r}
 #| label: bart-cls
-bart(
+parsnip::bart(
   trees = integer(1),
   prior_terminal_node_coef = double(1),
   prior_terminal_node_expo = double(1),
   prior_outcome_range = double(1)
 ) |> 
   set_engine("dbarts") |> 
   set_mode("classification") |> 
-  translate()
+  translate() |> 
+  print_model_spec()
 ```
 
 
 ## Translation from parsnip to the original package (regression)
 
 ```{r}
 #| label: bart-reg
-bart(
+parsnip::bart(
   trees = integer(1),
   prior_terminal_node_coef = double(1),
   prior_terminal_node_expo = double(1),
   prior_outcome_range = double(1)
 ) |> 
   set_engine("dbarts") |> 
   set_mode("regression") |> 
-  translate()
+  translate()|> 
+  print_model_spec()
 ```
 
 ## Preprocessing requirements

man/rmd/bart_dbarts.md

@@ -41,43 +41,67 @@ Some relevant arguments that can be passed to `set_engine()`:
 
 
 ``` r
-bart(
+parsnip::bart(
   trees = integer(1),
   prior_terminal_node_coef = double(1),
   prior_terminal_node_expo = double(1),
   prior_outcome_range = double(1)
 ) |> 
   set_engine("dbarts") |> 
   set_mode("classification") |> 
-  translate()
+  translate() |> 
+  print_model_spec()
 ```
 
 ```
+## BART Model Specification (classification)
 ## 
-## Call:
-## NULL
+## Main Arguments:
+##   trees = integer(1)
+##   prior_terminal_node_coef = double(1)
+##   prior_terminal_node_expo = double(1)
+##   prior_outcome_range = double(1)
+## 
+## Computational engine: dbarts 
+## 
+## Model fit template:
+## dbarts::bart(x = missing_arg(), y = missing_arg(), ntree = integer(1), 
+##     base = double(1), power = double(1), k = double(1), verbose = FALSE, 
+##     keeptrees = TRUE, keepcall = FALSE)
 ```
 
 
 ## Translation from parsnip to the original package (regression)
 
 
 ``` r
-bart(
+parsnip::bart(
   trees = integer(1),
   prior_terminal_node_coef = double(1),
   prior_terminal_node_expo = double(1),
   prior_outcome_range = double(1)
 ) |> 
   set_engine("dbarts") |> 
   set_mode("regression") |> 
-  translate()
+  translate()|> 
+  print_model_spec()
 ```
 
 ```
+## BART Model Specification (regression)
+## 
+## Main Arguments:
+##   trees = integer(1)
+##   prior_terminal_node_coef = double(1)
+##   prior_terminal_node_expo = double(1)
+##   prior_outcome_range = double(1)
+## 
+## Computational engine: dbarts 
 ## 
-## Call:
-## NULL
+## Model fit template:
+## dbarts::bart(x = missing_arg(), y = missing_arg(), ntree = integer(1), 
+##     base = double(1), power = double(1), k = double(1), verbose = FALSE, 
+##     keeptrees = TRUE, keepcall = FALSE)
 ```
 
 ## Preprocessing requirements

tests/testthat/helper-objects.R

@@ -113,3 +113,17 @@ if (rlang::is_installed("modeldata")) {
   }
 }
 
+if (rlang::is_installed("survival")) {
+  data(cancer, package = "survival")
+  basic_form <- survival::Surv(time, status) ~ age
+  complete_form <- survival::Surv(time) ~ age
+
+  if (R.Version()$major < "4") {
+    data(lung, package = 'survival')
+  } else {
+    data(cancer, package = 'survival')
+  }
+
+  basic_form <- survival::Surv(time, status) ~ group
+  complete_form <- survival::Surv(time) ~ group
+}

tests/testthat/test-surv_reg_flexsurv.R

@@ -1,12 +1,10 @@
-data(cancer, package = "survival")
 
-basic_form <- survival::Surv(time, status) ~ age
-complete_form <- survival::Surv(time) ~ age
 
 # ------------------------------------------------------------------------------
 
 test_that('flexsurv execution', {
   skip_if_not_installed("flexsurv")
+  skip_if_not_installed("survival")
 
   rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() |> set_engine("flexsurv")
@@ -43,6 +41,8 @@ test_that('flexsurv execution', {
 
 test_that('flexsurv prediction', {
   skip_if_not_installed("flexsurv")
+  skip_if_not_installed("survival")
+
 
   rlang::local_options(lifecycle_verbosity = "quiet")
   surv_basic <- surv_reg() |> set_engine("flexsurv")

tests/testthat/test-surv_reg_survreg.R

@@ -1,11 +1,4 @@
-if (R.Version()$major < "4") {
-  data(lung, package = 'survival')
-} else {
-  data(cancer, package = 'survival')
-}
 
-basic_form <- survival::Surv(time, status) ~ group
-complete_form <- survival::Surv(time) ~ group
 
 # ------------------------------------------------------------------------------