updates for no-suggests checks (#949)

* no suggests changes

* more no-suggest changes

* various no suggests updates

* move to examplesIf

* kernlab

* skip skip skip

* regen snapshots

* skip skip

* one more example adjustment

* a few more minor changes

Author: topepo

.github/workflows/R-CMD-check-hard.yaml

@@ -0,0 +1,59 @@
+# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
+# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
+#
+# NOTE: This workflow only directly installs "hard" dependencies, i.e. Depends,
+# Imports, and LinkingTo dependencies. Notably, Suggests dependencies are never
+# installed, with the exception of testthat, knitr, and rmarkdown. The cache is
+# never used to avoid accidentally restoring a cache containing a suggested
+# dependency.
+on:
+  push:
+    branches: [main, master]
+  pull_request:
+
+name: R-CMD-check-hard.yaml
+
+permissions: read-all
+
+jobs:
+  check-no-suggests:
+    runs-on: ${{ matrix.config.os }}
+
+    name: ${{ matrix.config.os }} (${{ matrix.config.r }})
+
+    strategy:
+      fail-fast: false
+      matrix:
+        config:
+          - {os: ubuntu-latest,   r: 'release'}
+
+    env:
+      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      R_KEEP_PKG_SOURCE: yes
+
+    steps:
+      - uses: actions/checkout@v4
+
+      - uses: r-lib/actions/setup-pandoc@v2
+
+      - uses: r-lib/actions/setup-r@v2
+        with:
+          r-version: ${{ matrix.config.r }}
+          http-user-agent: ${{ matrix.config.http-user-agent }}
+          use-public-rspm: true
+
+      - uses: r-lib/actions/setup-r-dependencies@v2
+        with:
+          dependencies: '"hard"'
+          cache: false
+          extra-packages: |
+            any::rcmdcheck
+            any::testthat
+            any::knitr
+            any::rmarkdown
+          needs: check
+
+      - uses: r-lib/actions/check-r-package@v2
+        with:
+          upload-snapshots: true
+          build_args: 'c("--no-manual","--compact-vignettes=gs+qpdf")'

DESCRIPTION

@@ -34,6 +34,7 @@ Imports:
     recipes (>= 1.0.4),
     rlang (>= 1.1.0),
     rsample (>= 1.2.1.9000),
+    tailor,
     tibble (>= 3.1.0),
     tidyr (>= 1.2.0),
     tidyselect (>= 1.1.2),
@@ -52,7 +53,6 @@ Suggests:
     scales,
     spelling,
     splines2,
-    tailor,
     testthat (>= 3.0.0),
     xgboost,
     xml2

R/conf_mat_resampled.R

@@ -11,7 +11,9 @@
 #' @param tidy Should the results come back in a tibble (`TRUE`) or a `conf_mat`
 #' object like `yardstick::conf_mat()` (`FALSE`)?
 #' @return A tibble or `conf_mat` with the average cell count across resamples.
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
+#' # example code
+#'
 #' library(parsnip)
 #' library(rsample)
 #' library(dplyr)

R/coord_obs_pred.R

@@ -36,7 +36,8 @@ CoordObsPred <-
 #' may show up in places such as the axes, the legend, the plot title, or the
 #' plot margins.
 #' @return A `ggproto` object.
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
+#' # example code
 #' data(solubility_test, package = "modeldata")
 #'
 #' library(ggplot2)

R/extract.R

@@ -45,7 +45,9 @@
 #' description section.
 #'
 #' @name extract-tune
-#' @examples
+#' @examplesIf rlang::is_installed("splines2")
+#' # example code
+#'
 #' library(recipes)
 #' library(rsample)
 #' library(parsnip)

R/fit_best.R

@@ -13,8 +13,8 @@
 #' a column for each tuning parameter. This tibble should have columns for each
 #' tuning parameter identifier (e.g. `"my_param"` if `tune("my_param")` was used).
 #' If `NULL`, this argument will be set to
-#' [`select_best(metric, eval_time)`][tune::select_best.tune_results]. 
-#' If not `NULL`, `parameters` overwrites the specification via `metric`, and 
+#' [`select_best(metric, eval_time)`][tune::select_best.tune_results].
+#' If not `NULL`, `parameters` overwrites the specification via `metric`, and
 #' `eval_time`.
 #' @param verbose A logical for printing logging.
 #' @param add_validation_set When the resamples embedded in `x` are a split into
@@ -37,7 +37,7 @@
 #'
 #' @inheritSection last_fit See also
 #'
-#' @examplesIf tune:::should_run_examples()
+#' @examplesIf tune:::should_run_examples() & rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(rsample)
 #' library(parsnip)

R/int_pctl.R

@@ -46,24 +46,26 @@
 #' @references Davison, A., & Hinkley, D. (1997). _Bootstrap Methods and their
 #'  Application_. Cambridge: Cambridge University Press.
 #'  doi:10.1017/CBO9780511802843
-#' @examplesIf !tune:::is_cran_check() & tune:::should_run_examples("modeldata")
-#' data(Sacramento, package = "modeldata")
-#' library(rsample)
-#' library(parsnip)
+#' @examplesIf !tune:::is_cran_check()
+#' if (rlang::is_installed("modeldata")) {
+#'   data(Sacramento, package = "modeldata")
+#'   library(rsample)
+#'   library(parsnip)
 #'
-#' set.seed(13)
-#' sac_rs <- vfold_cv(Sacramento)
+#'   set.seed(13)
+#'   sac_rs <- vfold_cv(Sacramento)
 #'
-#' lm_res <-
-#'   linear_reg() %>%
-#'   fit_resamples(
-#'     log10(price) ~ beds + baths + sqft + type + latitude + longitude,
-#'     resamples = sac_rs,
-#'     control = control_resamples(save_pred = TRUE)
-#'   )
+#'   lm_res <-
+#'     linear_reg() %>%
+#'     fit_resamples(
+#'       log10(price) ~ beds + baths + sqft + type + latitude + longitude,
+#'       resamples = sac_rs,
+#'       control = control_resamples(save_pred = TRUE)
+#'     )
 #'
-#' set.seed(31)
-#' int_pctl(lm_res)
+#'   set.seed(31)
+#'   int_pctl(lm_res)
+#' }
 #' @export
 int_pctl.tune_results <- function(.data, metrics = NULL, eval_time = NULL,
                                   times = 1001, parameters = NULL,

R/last_fit.R

@@ -59,7 +59,7 @@
 #' model (and recipe, if any) that used the training set. Helper functions
 #' for formatting tuning results like [collect_metrics()] and
 #' [collect_predictions()] can be used with `last_fit()` output.
-#' @examplesIf tune:::should_run_examples()
+#' @examplesIf tune:::should_run_examples() & rlang::is_installed("splines2")
 #' library(recipes)
 #' library(rsample)
 #' library(parsnip)

R/merge.R

@@ -13,7 +13,7 @@
 #'
 #' @return A tibble with a column `x` that has as many rows as were in `y`.
 #' @keywords internal
-#' @examplesIf tune:::should_run_examples(suggests = c("xgboost", "modeldata"))
+#' @examplesIf tune:::should_run_examples(suggests = c("xgboost", "modeldata", "splines2"))
 #' library(tibble)
 #' library(recipes)
 #' library(parsnip)

R/resample.R

@@ -20,7 +20,7 @@
 #' @template case-weights
 #' @template censored-regression
 #' @seealso [control_resamples()], [collect_predictions()], [collect_metrics()]
-#' @examplesIf tune:::should_run_examples()
+#' @examplesIf tune:::should_run_examples() & rlang::is_installed("splines2")
 #' library(recipes)
 #' library(rsample)
 #' library(parsnip)