minor updates rc3

Author: shikokuchuo

NEWS.md

@@ -2,7 +2,7 @@
 
 #### New Features
 
-* Aio values `$result`, `$data` and `$raw` now resolve automatically without requiring `call_aio()`. Access the values directly and an 'unresolved' logical NA will be returned if the Aio operation is yet to complete.
+* Aio values `$result`, `$data` and `$raw` now resolve automatically without requiring `call_aio()`. Access directly and an 'unresolved' logical NA value will be returned if the Aio operation is yet to complete.
 * `unresolved()` added as an auxiliary function to query whether an Aio is unresolved, for use in control flow statements.
 * Integer error values generated by receive functions are now classed 'errorValue'. `is_error_value()` helper function included.
 * `is_nul_byte()` added as a helper function for request/reply setups.

R/aio.R

@@ -123,8 +123,7 @@ stop_aio <- function(aio) {
 #'
 unresolved <- function(aio) {
 
-  {inherits(aio, "unresolvedExpr") && inherits(.subset2(aio, "data"), "unresolvedExpr") ||
-      inherits(aio, "unresolvedValue") ||
+  {inherits(aio, "unresolvedValue") ||
       inherits(aio, "recvAio") && inherits(.subset2(aio, "data"), "unresolvedValue") ||
       inherits(aio, "sendAio") && inherits(.subset2(aio, "result"), "unresolvedValue")} &&
     return(TRUE)

R/utils.R

@@ -101,11 +101,11 @@ is_error_value <- function(x) inherits(x, "errorValue")
 #'
 #' @param level specify a logging level
 #'     \itemize{
-#'     \item{'prev'} {which continues with the previous logging level}
+#'     \item{'keep'} {which keeps the current logging level}
 #'     \item{'check'} {which checks the value of environment variable 'NANONEXT_LOG'}
 #'     \item{'error'} {which sends all NNG errors to stderr}
 #'     \item{'info'} {which in addition sends key informational events such as
-#'     socket open etc. to stdout.}
+#'     socket open etc. to stdout}
 #'     }
 #'
 #' @return Invisible NULL. A confirmation is printed to the console (stdout) if
@@ -131,7 +131,7 @@ logging <- function(level) {
                   info = 1L,
                   0L)
 
-  logging <- function(level = c("prev", "check", "error", "info")) {
+  logging <- function(level = c("keep", "check", "error", "info")) {
 
     missing(level) && return(cache)
     level <- match.arg(level)
@@ -142,7 +142,7 @@ logging <- function(level) {
                                     0L),
                      error = 0L,
                      info = 1L,
-                     prev = original)
+                     keep = original)
     if (cache != original) cat(sprintf("%s [ %s ] %s: %s\n",
                                        format.POSIXct(Sys.time()), "log level", "set to",
                                        if (cache) "info" else "error"),  file = stdout())