trying to fix for cran

burchill · Sep 20, 2021 · b3d4934 · b3d4934
1 parent 349ec97
commit b3d4934
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/make-handlers.R b/R/make-handlers.R
@@ -256,7 +256,7 @@ extract_display_string <- function(cond, cond_name = NA, include_call = T) {
 #' @seealso the [beep] special term, which will play the default beep; [user_exit()] and [exit_with()] for parallel functions for the [exit] special term, and [user_display()] and [display_with()] for parallel functions for the [display] special term.
 #' @export
 beep_with <- function(beepr_sound) {
-  force(beepr_sound)
+  beepr_sound # forcing it
   if (!is_installed("beepr"))
     abort("Package `beepr` needs to be installed if `beep` is to be used.")
   else

diff --git a/tests/testthat/test-testing.R b/tests/testthat/test-testing.R
@@ -429,7 +429,7 @@ test_that("Testing basic compiled plan printing", {
     test_plans <- make_plans(
       warning,
       error=c("muffle"),
-      message=list(beep, function(x) {print(paste0(x, "THIS IS A VERY LONG STRING AND I THINK IT WILL GET CUT OFF")); stop(x)}),
+      message=list(display, function(x) {print(paste0(x, "THIS IS A VERY LONG STRING AND I THINK IT WILL GET CUT OFF")); stop(x)}),
       .opts = catchr_opts(
         default_plan = c(display, muffle),
         warn_about_terms = FALSE,