update for request_promise -> request2

Author: shikokuchuo

DESCRIPTION

@@ -23,7 +23,7 @@ Encoding: UTF-8
 Depends: 
     R (>= 3.6)
 Imports: 
-    nanonext (>= 0.13.6.9001)
+    nanonext (>= 0.13.6.9002)
 Enhances: 
     parallel,
     promises

NAMESPACE

@@ -65,7 +65,7 @@ importFrom(nanonext,reap)
 importFrom(nanonext,recv)
 importFrom(nanonext,recv_aio_signal)
 importFrom(nanonext,request)
-importFrom(nanonext,request_promise)
+importFrom(nanonext,request2)
 importFrom(nanonext,request_signal)
 importFrom(nanonext,send)
 importFrom(nanonext,socket)

R/mirai-package.R

@@ -44,7 +44,7 @@
 #'
 #' @importFrom nanonext call_aio call_aio_ .context cv cv_value dial
 #'     is_error_value listen lock mclock msleep next_config opt opt<- parse_url
-#'     pipe_notify random reap recv recv_aio_signal request request_promise
+#'     pipe_notify random reap recv recv_aio_signal request request2
 #'     request_signal send socket stat stop_aio strcat tls_config unresolved
 #'     until wait write_cert
 #' @importFrom parallel nextRNGStream

R/mirai.R

@@ -145,10 +145,10 @@ mirai <- function(.expr, ..., .args = list(), .timeout = NULL, .compute = "defau
   envir <- ..[[.compute]]
   if (is.null(envir)) {
     sock <- ephemeral_daemon(local_url())
-    aio <- request_promise(.context(sock), data = data, cv = NULL, send_mode = 1L, recv_mode = 1L, timeout = .timeout)
+    aio <- request2(.context(sock), data = data, send_mode = 1L, recv_mode = 1L, timeout = .timeout)
     `attr<-`(.subset2(aio, "aio"), "sock", sock)
   } else {
-    aio <- request_promise(.context(envir[["sock"]]), data = data, cv = envir[["cv"]], send_mode = 3L, recv_mode = 1L, timeout = .timeout)
+    aio <- request2(.context(envir[["sock"]]), data = data, cv = envir[["cv"]], send_mode = 3L, recv_mode = 1L, timeout = .timeout)
   }
 
   `class<-`(aio, c("mirai", "recvAio"))