nextmode() returns visibly

NEWS.md

@@ -14,6 +14,7 @@
 * `nextmode()` improvements:
   + simplified function signature to take a 'refhook' argument comprising a list of serialization / unserialization functions.
   + registered 'refhook' functions apply to external pointer type objects only.
+  + no longer returns invisibly for easier confimation that the correct functions have been registered.
 * `reap()` updated to always return either a zero on success or else an integer 'errorValue'.
 * `pipe_notify()` arguments 'add', 'remove' and 'flag' now default to FALSE instead of TRUE for easier selective specification of the events to signal.
 * Fixes regression in release 0.10.4 that caused a potential segfault using `ncurl()` with 'follow' set to TRUE when the server returns a missing or invalid relocation address.

R/utils.R

@@ -290,21 +290,20 @@ strcat <- function(a, b) .Call(rnng_strcat, a, b)
 #' @param mark [default FALSE] (for advanced use only) logical value, whether to
 #'     mark serialized data with a special bit.
 #'
-#' @return Invisibly, a list comprising the currently-registered 'refhook'
-#'     functions.
+#' @return A list comprising the currently-registered 'refhook' functions.
 #'
-#' @details Calling this function without any arguments returns (invisibly) the
+#' @details Calling this function without any arguments returns the
 #'     currently-registered 'refhook' functions (and resets 'mark' to FALSE).
 #'
 #' @examples
 #' nextmode(refhook = list(function(x) serialize(x, NULL), unserialize),
 #'          mark = TRUE)
-#' print(nextmode())
+#' nextmode()
 #'
 #' nextmode(NULL)
-#' print(nextmode())
+#' nextmode()
 #'
 #' @export
 #'
 nextmode <- function(refhook = list(), mark = FALSE)
-  invisible(.Call(rnng_next_mode, refhook, mark))
+  .Call(rnng_next_mode, refhook, mark)