amends 'libnng' code to fix CRAN clang-UBSAN issue

Author: shikokuchuo

NEWS.md

@@ -11,6 +11,7 @@
 * `messenger()` is faster to connect and exits gracefully in case of a connection error.
 * Removes defunct function `nano_init()`.
 * Bundled 'libnng' source updated to v1.6.0 pre-release (539e559).
+* Fixes CRAN 'additional issue' (clang-UBSAN).
 
 # nanonext 0.7.2
 

R/opts.R

@@ -168,19 +168,19 @@ subscribe <- function(con, topic = NULL)
 #' pub <- socket("pub", listen = "inproc://nanonext")
 #' sub <- socket("sub", dial = "inproc://nanonext")
 #'
-#' subscribe(sub, NULL)
-#'
+#' subscribe(sub, "examples")
 #' send(pub, c("examples", "this is an example"), mode = "raw")
 #' recv(sub, "character")
-#' send(pub, "examples will also be received", mode = "raw")
-#' recv(sub, "character")
-#' unsubscribe(sub, NULL)
+#' unsubscribe(sub, "examples")
 #' send(pub, c("examples", "this example will not be received"), mode = "raw")
 #' recv(sub, "character")
 #'
 #' subscribe(sub, 2)
 #' send(pub, c(2, 10, 10, 20), mode = "raw")
 #' recv(sub, "double", keep.raw = FALSE)
+#' unsubscribe(sub, 2)
+#' send(pub, c(2, 10, 10, 20), mode = "raw")
+#' recv(sub, "double", keep.raw = FALSE)
 #'
 #' close(pub)
 #' close(sub)

inst/nng-539e559.tar.xz

@@ -212,14 +212,12 @@ nanotesterr(sub$getopt(opt = "false"), 9)
 nanotesterr(sub$setopt(opt = "false", value = list()), "type")
 nanotestz(sub$subscribe("test"))
 nanotestz(subscribe(sub$socket, NULL))
-nanotestz(unsubscribe(sub$socket, NULL))
 nanotestz(sub$unsubscribe("test"))
 nanotestnn(sub$context_open())
 nanotest(inherits(sub$context, "nanoContext"))
 nanotestz(sub$subscribe(12))
 nanotestz(sub$unsubscribe(12))
 nanotestz(sub$subscribe(NULL))
-nanotestz(sub$unsubscribe(NULL))
 nanotestz(sub$context_close())
 nanotestn(sub$context)
 nanotestz(sub$close())