Retain current exports

Author: shikokuchuo

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: nanonext
 Type: Package
 Title: NNG (Nanomsg Next Gen) Lightweight Messaging Library
-Version: 1.5.1.9001
+Version: 1.5.1.9002
 Description: R binding for NNG (Nanomsg Next Gen), a successor to ZeroMQ. NNG is
     a socket library for reliable, high-performance messaging over in-process,
     IPC, TCP, WebSocket and secure TLS transports. Implements 'Scalability

NAMESPACE

@@ -42,7 +42,11 @@ S3method(utils::.DollarNames,recvAio)
 S3method(utils::.DollarNames,sendAio)
 export("%~>%")
 export("opt<-")
+export(.advance)
 export(.context)
+export(.interrupt)
+export(.keep)
+export(.mark)
 export(.unresolved)
 export(call_aio)
 export(call_aio_)

R/aio.R

@@ -402,6 +402,7 @@ is.promising.recvAio <- function(x) TRUE
 #'
 #' @return NULL.
 #'
-#' @noRd
+#' @keywords internal
+#' @export
 #'
 .keep <- function(x, ctx) .Call(rnng_set_promise_context, x, ctx)

R/utils.R

@@ -316,7 +316,8 @@ serial_config <- function(class, sfunc, ufunc, vec = FALSE)
 #'
 #' @return The logical value `x` supplied.
 #'
-#' @noRd
+#' @keywords internal
+#' @export
 #'
 .mark <- function(x = TRUE) .Call(rnng_set_marker, x)
 
@@ -326,7 +327,8 @@ serial_config <- function(class, sfunc, ufunc, vec = FALSE)
 #'
 #' @return NULL.
 #'
-#' @noRd
+#' @keywords internal
+#' @export
 #'
 .advance <- function() .Call(rnng_advance_rng_state)
 
@@ -339,7 +341,8 @@ serial_config <- function(class, sfunc, ufunc, vec = FALSE)
 #'
 #' @return The logical value `x` supplied.
 #'
-#' @noRd
+#' @keywords internal
+#' @export
 #'
 .interrupt <- function(x = TRUE) .Call(rnng_interrupt_switch, x)
 

man/dot-advance.Rd

@@ -87,7 +87,7 @@ test_zero(n$send(1:5, mode = "r"))
 test_equal(length(n1$recv("int", block = 500)), 5L)
 test_true(is_aio(saio <- n1$send_aio(paste(replicate(5, random(1e3L)), collapse = ""), mode = 1L, timeout = 900)))
 test_print(saio)
-if (later) test_null(nanonext:::.keep(saio, new.env()))
+if (later) test_null(.keep(saio, new.env()))
 test_class("sendAio", call_aio(saio))
 test_zero(saio$result)
 test_error(n$send("wrong mode", mode = "none"), "mode")
@@ -206,9 +206,9 @@ test_error(req$opt("false", list()), "type")
 
 test_class("nanoContext", ctx <- context(rep))
 test_print(ctx)
-test_true(nanonext:::.mark())
+test_true(.mark())
 test_class("sendAio", csaio <- req$send_aio(data.frame(), mode = "seria", timeout = 500))
-test_true(!nanonext:::.mark(FALSE))
+test_true(!.mark(FALSE))
 test_zero(call_aio_(csaio)$result)
 test_class("recvAio", craio <- recv_aio(ctx, timeout = 500))
 test_type("list", collect_aio(craio))
@@ -568,8 +568,8 @@ test_error(collect_aio_(list("a")), "object is not an Aio or list of Aios")
 test_error(collect_aio(list(fakesock)), "object is not an Aio or list of Aios")
 test_null(stop_aio("a"))
 test_null(stop_aio(list("a")))
-test_null(nanonext:::.keep(NULL, new.env()))
-test_null(nanonext:::.keep(new.env(), new.env()))
+test_null(.keep(NULL, new.env()))
+test_null(.keep(new.env(), new.env()))
 
 pem <- "-----BEGIN CERTIFICATE----- -----END CERTIFICATE-----"
 test_tls <- function(pem) {
@@ -621,9 +621,9 @@ if (promises) test_zero(close(s1))
 if (promises) test_zero(close(s))
 if (promises) later::run_now()
 
-test_true(nanonext:::.interrupt())
-test_true(!nanonext:::.interrupt(FALSE))
-test_true(!identical(get0(".Random.seed"), {nanonext:::.advance(); .Random.seed}))
+test_true(.interrupt())
+test_true(!.interrupt(FALSE))
+test_true(!identical(get0(".Random.seed"), {.advance(); .Random.seed}))
 test_type("integer", .Call(nanonext:::rnng_traverse_precious))
 if (Sys.info()[["sysname"]] == "Linux") {
   rm(list = ls())