Merge branch 'master' of https://github.com/stan-dev/posterior

Author: paul-buerkner

.github/workflows/rcmdcheck.yml

@@ -20,18 +20,19 @@ jobs:
       fail-fast: false
       matrix:
         config:
-          - {os: macOS-latest,   r: 'devel'}
-          - {os: macOS-latest,   r: 'release'}
-          - {os: windows-latest, r: 'release'}
-          - {os: windows-latest, r: '3.6'}
-          - {os: ubuntu-18.04,   r: 'devel',   rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest", http-user-agent: "R/4.0.0 (ubuntu-18.04) R (4.0.0 x86_64-pc-linux-gnu x86_64 linux-gnu) on GitHub Actions" }
-          - {os: ubuntu-18.04,   r: 'release', rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest"}
-          - {os: ubuntu-18.04,   r: 'oldrel',  rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest"}
+          - {os: macOS-latest,   r: 'devel', suggested_check: TRUE}
+          - {os: macOS-latest,   r: 'release', suggested_check: TRUE}
+          - {os: windows-latest, r: 'release', suggested_check: TRUE}
+          - {os: windows-latest, r: '3.6', suggested_check: FALSE}
+          - {os: ubuntu-18.04,   r: 'devel',   rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest", http-user-agent: "R/4.0.0 (ubuntu-18.04) R (4.0.0 x86_64-pc-linux-gnu x86_64 linux-gnu) on GitHub Actions" , suggested_check: TRUE}
+          - {os: ubuntu-18.04,   r: 'release', rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest", suggested_check: TRUE}
+          - {os: ubuntu-18.04,   r: 'oldrel',  rspm: "https://packagemanager.rstudio.com/cran/__linux__/bionic/latest", suggested_check: FALSE}
 
     env:
       R_REMOTES_NO_ERRORS_FROM_WARNINGS: true
       RSPM: ${{ matrix.config.rspm }}
       GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
+      _R_CHECK_FORCE_SUGGESTS_: ${{ matrix.config.suggested_check }}
 
     steps:
       - uses: n1hility/cancel-previous-runs@v2

R/rstar.R

@@ -70,7 +70,7 @@
 #'
 #' @examples
 #' \donttest{
-#' if (require("caret", quietly = TRUE)) {
+#' if (require("caret", quietly = TRUE) && require("randomForest", quietly = TRUE)) {
 #'   x <- example_draws("eight_schools")
 #'   print(rstar(x))
 #'   print(rstar(x, split = FALSE))

man/rstar.Rd

@@ -43,13 +43,20 @@ test_that("print.draws_list runs without errors", {
 })
 
 test_that("print.draws_rvars runs without errors", {
+  skip_on_os("windows")
   x <- as_draws_rvars(example_draws())
-  expect_output(print(x),
-    "A draws_rvars: 100 iterations, 4 chains, and 3 variables"
+  expect_output(
+    print(x),
+    "A draws_rvars: 100 iterations, 4 chains, and 3 variables",
+    fixed = TRUE
   )
 
   x <- weight_draws(x, rep(1, ndraws(x)))
-  expect_output(print(x), "hidden reserved variables \\{'\\.log_weight'\\}")
+  expect_output(
+    print(x),
+    "hidden reserved variables {'.log_weight'}",
+    fixed = TRUE
+  )
 })
 
 test_that("print.draws_array handles reserved variables correctly", {
@@ -97,6 +104,7 @@ test_that("print.draws_list handles reserved variables correctly", {
 })
 
 test_that("print.draws_rvars handles reserved variables correctly", {
+  skip_on_os("windows")
   x <- as_draws_rvars(example_draws())
   variables(x)[1] <- ".log_weight" # reserved name
   expect_output(print(x, max_variables = 1), "tau")

tests/testthat/test-print.R

@@ -1,13 +1,15 @@
 
 test_that("rstar returns reasonable values", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("randomForest")
   x <- example_draws()
   val <- rstar(x)
   expect_true(val > 0.8 & val < 10)
 })
 
 test_that("rstar works with 1d example", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("randomForest")
   x <- example_draws()
   x <- as_draws_df(x)
   # remove all bar one variable
@@ -18,6 +20,7 @@ test_that("rstar works with 1d example", {
 
 test_that("rstar works with draws_df example", {
   skip_if_not_installed("caret")
+  skip_if_not_installed("randomForest")
   x <- example_draws()
   x <- as_draws_df(x)
   val <- rstar(x)

tests/testthat/test-rstar.R

@@ -1,4 +1,5 @@
 test_that("basic print.rvar works", {
+  skip_on_os("windows")
   x <- rvar(array(1:12, dim = c(2,2,3)))
   x_with_chains <- rvar(array(1:12, dim = c(2,2,3)), nchains = 2)
 
@@ -26,6 +27,7 @@ NULL",
 })
 
 test_that("basic str.rvar works", {
+  skip_on_os("windows")
   x <- rvar(array(1:24, dim = c(2,3,4)))
   x_with_chains <- rvar(array(1:24, dim = c(2,3,4)), nchains = 2)