fix warnings and notes

Author: HenrikBengtsson

R/notifier_handler.R

@@ -18,10 +18,11 @@ notifier_handler <- function(intrusiveness = getOption("progressr.intrusiveness.
   ## Used for package testing purposes only when we want to perform
   ## everything except the last part where the backend is called
   if (!is_fake("notifier_handler")) {
-    if (!requireNamespace("notifier", quietly = TRUE)) {
+    pkg <- "notifier"
+    if (!requireNamespace(pkg, quietly = TRUE)) {
       stop("Package 'notifier' is not available. See ?progressr::notifier_handler() for installation instructions")
     }
-    notifier_notify <- get("notify", mode = "function", envir = getNamespace("notifier"))
+    notifier_notify <- get("notify", mode = "function", envir = getNamespace(pkg))
   } else {
     notifier_notify <- function(...) NULL
   }

incl/notifier_handler.R

@@ -1,4 +1,5 @@
-if (requireNamespace("notifier", quietly = TRUE)) {
+pkg <- "notifier"
+if (requireNamespace(pkg, quietly = TRUE)) {
   handlers("notifier")
   with_progress({ y <- slow_sum(1:10) })
   print(y)

incl/with_progress.R

@@ -38,15 +38,12 @@ if (requireNamespace("beepr", quietly = TRUE)) {
   })
 }
 
-## Progress reported via customied utils::txtProgressBar, beepr::beep,
-## and notifier::notify, if available.
+## Progress reported via customized utils::txtProgressBar and beepr::beep,
+## if available.
 handlers(txtprogressbar_handler(style = 3L))
 if (requireNamespace("beepr", quietly = TRUE)) {
   handlers("beepr", append = TRUE)
 }
-if (requireNamespace("notifier", quietly = TRUE)) {
-  handlers(notifier_handler(times = 3L, interval = 0.1), append = TRUE)
-}
 
 with_progress({
   y <- slow_sum(1:30)