Tweak request() id argument

Author: shikokuchuo

NEWS.md

@@ -2,7 +2,6 @@
 
 #### Updates
 
-* `request()` argument `id` is now a logical rather than integer argument.
 * The previous `listen()` and `dial()` argument `error`, removed in v1.6.0, is now defunct.
 * The previous `serial_config()` argument `vec`, unutilised since v1.6.0, is removed.
 

R/context.R

@@ -180,9 +180,9 @@ reply <- function(
 #' @param cv (optional) a 'conditionVariable' to signal when the async receive
 #'   is complete, or NULL. If any other value is supplied, this will cause the
 #'   pipe connection to be dropped when the async receive is complete.
-#' @param id (optional) specify as TRUE to send a message via the context upon
-#'   timeout (asynchronously) consisting of an integer zero, followed by the
-#'   integer context ID.
+#' @param id (optional) specify a non-NULL value to send a message via the
+#'   context upon timeout (asynchronously) consisting of an integer zero,
+#'   followed by the integer context ID.
 #'
 #' @return A 'recvAio' (object of class 'mirai' and 'recvAio') (invisibly).
 #'

man/request.Rd

@@ -413,7 +413,7 @@ SEXP rnng_request(SEXP con, SEXP data, SEXP sendmode, SEXP recvmode, SEXP timeou
   const nng_duration dur = timeout == R_NilValue ? NNG_DURATION_DEFAULT : (nng_duration) nano_integer(timeout);
   const uint8_t mod = (uint8_t) nano_matcharg(recvmode);
   const int raw = nano_encode_mode(sendmode);
-  const int id = msgid == R_NilValue ? 0 : TYPEOF(msgid) == LGLSXP ? nng_ctx_id(*ctx) : NANO_INTEGER(msgid);
+  const int id = msgid == R_NilValue ? 0 : TYPEOF(msgid) == INTSXP ? NANO_INTEGER(msgid) : nng_ctx_id(*ctx);
   const int signal = cvar != R_NilValue && !NANO_PTR_CHECK(cvar, nano_CvSymbol);
   const int drop = cvar != R_NilValue && !signal;
   int xc;