Merge branch 'master' of github.com:daroczig/logger

Mikata-Project · Feb 29, 2024 · d35a254 · d35a254
2 parents 06604fd + f4463c2
commit d35a254
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 10 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,10 @@
 
 * support `OFF` log level (#138, @pawelru)
 
+## Fixes
+
+* change examples using `Mean` since they behave differently when the `Hmisc` package is loaded (#131)
+
 # logger 0.2.2 (2021-10-10)
 
 Maintenance release:

diff --git a/R/try.R b/R/try.R
@@ -8,10 +8,10 @@
 #' everything <- '640kb'
 #' everything %except% 42
 #'
-#' Mean(1:10) %except% sum(1:10) / length(1:10)
-#' Mean(1:10) %except% (sum(1:10) / length(1:10))
-#' Mean(1:10) %except% MEAN(1:10) %except% mean(1:10)
-#' Mean(1:10) %except% (MEAN(1:10) %except% mean(1:10))
+#' FunDoesNotExist(1:10) %except% sum(1:10) / length(1:10)
+#' FunDoesNotExist(1:10) %except% (sum(1:10) / length(1:10))
+#' FunDoesNotExist(1:10) %except% MEAN(1:10) %except% mean(1:10)
+#' FunDoesNotExist(1:10) %except% (MEAN(1:10) %except% mean(1:10))
 `%except%` <- function(try, except) {
 
     call <- sys.call(-1)

diff --git a/man/grapes-except-grapes.Rd b/man/grapes-except-grapes.Rd
diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -14,8 +14,8 @@ test_that('fail_on_missing_package', {
 })
 
 test_that('except helper', {
-    expect_equal(Mean(1:10) %except% sum(1:10) / length(1:10), 5.5)
-    expect_output(Mean(1:10) %except% sum(1:10) / length(1:10), 'WARN')
+    expect_equal(FunDoesNotExist(1:10) %except% sum(1:10) / length(1:10), 5.5)
+    expect_output(FunDoesNotExist(1:10) %except% sum(1:10) / length(1:10), 'WARN')
 })
 
 test_that('validate_log_level', {