Merge pull request #156 from tidymodels/hardh-check

add hard R cmd check

.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")'

R/adasyn.R

@@ -60,7 +60,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/bsmote.R

@@ -82,7 +82,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/downsample.R

@@ -70,7 +70,7 @@
 #' @family Steps for under-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/nearmiss.R

@@ -62,7 +62,7 @@
 #' @family Steps for under-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/rose.R

@@ -75,7 +75,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/smote.R

@@ -66,7 +66,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/smotenc.R

@@ -68,7 +68,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/tomek.R

@@ -53,7 +53,7 @@
 #' @family Steps for under-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

R/upsample.R

@@ -65,7 +65,7 @@
 #' @family Steps for over-sampling
 #'
 #' @export
-#' @examples
+#' @examplesIf rlang::is_installed("modeldata")
 #' library(recipes)
 #' library(modeldata)
 #' data(hpc_data)

README.Rmd

@@ -51,7 +51,7 @@ library(recipes)
 library(modeldata)
 library(themis)
 
-data("credit_data")
+data("credit_data", package = "modeldata")
 
 credit_data0 <- credit_data %>%
   filter(!is.na(Job))

README.md

@@ -49,7 +49,7 @@ library(recipes)
 library(modeldata)
 library(themis)
 
-data("credit_data")
+data("credit_data", package = "modeldata")
 
 credit_data0 <- credit_data %>%
   filter(!is.na(Job))

tests/testthat/test-S3-methods.R

@@ -1,16 +1,12 @@
-data(two_class_dat, package = "modeldata")
-
-# ------------------------------------------------------------------------------
-
-r1 <- recipe(Class ~ ., data = two_class_dat)
-r2 <- r1 %>% step_adasyn(Class)
-r3 <- r1 %>% step_bsmote(Class)
-r4 <- r1 %>% step_downsample(Class)
-r5 <- r1 %>% step_nearmiss(Class)
-r6 <- r1 %>% step_rose(Class)
-r7 <- r1 %>% step_smote(Class)
-r8 <- r1 %>% step_tomek(Class)
-r9 <- r1 %>% step_upsample(Class)
+r1 <- recipe(class ~ ., data = circle_example)
+r2 <- r1 %>% step_adasyn(class)
+r3 <- r1 %>% step_bsmote(class)
+r4 <- r1 %>% step_downsample(class)
+r5 <- r1 %>% step_nearmiss(class)
+r6 <- r1 %>% step_rose(class)
+r7 <- r1 %>% step_smote(class)
+r8 <- r1 %>% step_tomek(class)
+r9 <- r1 %>% step_upsample(class)
 
 # ------------------------------------------------------------------------------
 

tests/testthat/test-adasyn.R

@@ -1,10 +1,7 @@
-library(testthat)
-library(recipes)
-library(dplyr)
-library(modeldata)
-
 test_that("errors if there isn't enough data", {
-  data("credit_data")
+  skip_if_not_installed("modeldata")
+
+  data("credit_data", package = "modeldata")
   credit_data0 <- credit_data
 
   credit_data0$Status <- as.character(credit_data0$Status)
@@ -63,7 +60,9 @@ test_that("errors if character are present", {
 })
 
 test_that("NA in response", {
-  data(credit_data)
+  skip_if_not_installed("modeldata")
+
+  data("credit_data", package = "modeldata")
 
   expect_snapshot(error = TRUE,
     recipe(Job ~ Age, data = credit_data) %>%
@@ -128,7 +127,9 @@ test_that("ratio value works when oversampling", {
 })
 
 test_that("allows multi-class", {
-  data("credit_data")
+  skip_if_not_installed("modeldata")
+
+  data("credit_data", package = "modeldata")
   expect_no_error(
     recipe(Home ~ Age + Income + Assets, data = credit_data) %>%
       step_impute_mean(Income, Assets) %>%
@@ -137,7 +138,9 @@ test_that("allows multi-class", {
 })
 
 test_that("majority classes are ignored if there is more than 1", {
-  data("penguins")
+  skip_if_not_installed("modeldata")
+
+  data("penguins", package = "modeldata")
   rec1_p2 <- recipe(species ~ bill_length_mm + bill_depth_mm,
     data = penguins[-(1:28), ]
   ) %>%