do not expose fini at R level

Author: shikokuchuo

R/messenger.R

@@ -101,6 +101,8 @@ messenger <- function(url, auth = NULL) {
         cat(sprintf("%*s > %s\n", nchar(data), "", format.POSIXct(Sys.time())), file = stdout())
   }
 
+  if (!interactive()) later::run_now()
+
 }
 
 # nocov end

R/utils.R

@@ -324,14 +324,15 @@ next_config <- function(refhook = list(), class = "", vec = FALSE, mark = FALSE)
 
 #' Internal Package Function
 #'
-#' Do not use. Only present for cleaning up after running examples and tests.
+#' Only present for cleaning up after running examples and tests. Do not attempt
+#'     to run the examples.
 #'
 #' @examples
 #' rm(list = ls())
 #' gc()
 #' Sys.sleep(1L)
-#' nanonext:::zzz()
+#' .Call(nanonext:::rnng_fini)
 #'
 #' @keywords internal
 #'
-zzz <- function() if (interactive()) later::run_now() else .Call(rnng_fini)
+zzz <- function() {}

man/zzz.Rd

@@ -558,4 +558,4 @@ nanotestz(close(s))
 rm(list = ls())
 gc()
 Sys.sleep(1L)
-nanonext:::zzz()
+.Call(nanonext:::rnng_fini)