add context method for nano objects

Author: shikokuchuo

NEWS.md

@@ -2,6 +2,7 @@
 
 #### New Features
 
+* `$context()` method added for creating new contexts from nano Objects with supported protocols (i.e. req, rep, surveyor, respondent).
 * Added convenience auxiliary functions `is_nano()` and `is_aio()`.
 
 #### Updates

R/nano.R

@@ -128,15 +128,25 @@ nano <- function(protocol = c("pair", "bus", "req", "rep", "push", "pull",
                                                                opt = opt,
                                                                value = value)
 
-  if (protocol == "sub") {
-    nano[["subscribe"]] <- function(topic = NULL) subscribe(socket,
-                                                            topic = topic)
-    nano[["unsubscribe"]] <- function(topic = NULL) unsubscribe(socket,
-                                                                topic = topic)
-  }
-  if (protocol == "surveyor") {
-    nano[["survey_time"]] <- function(time) survey_time(socket, time = time)
-  }
+  switch(protocol,
+         req =,
+         rep = {
+           nano[["context"]] <- function() context(socket)
+         },
+         sub = {
+           nano[["subscribe"]] <- function(topic = NULL) subscribe(socket,
+                                                                   topic = topic)
+           nano[["unsubscribe"]] <- function(topic = NULL) unsubscribe(socket,
+                                                                       topic = topic)
+         },
+         surveyor = {
+           nano[["context"]] <- function() context(socket)
+           nano[["survey_time"]] <- function(time) survey_time(socket, time = time)
+         },
+         respondent = {
+           nano[["context"]] <- function() context(socket)
+         },
+         NULL)
 
   nano
 

tests/tests.R

@@ -75,7 +75,7 @@ nanotest(n1$socket[state] == "closed")
 n <- nano("req", listen = "inproc://testing")
 n1 <- nano("rep", dial = "inproc://testing")
 nanotest(n$socket_setopt("ms", "req:resend-time", 1000) == 0)
-ctx <- context(n$socket)
+ctx <- n$context()
 ctx1 <- context(n1$socket)
 nanotest(inherits(ctx, "nanoContext"))
 nanotest(inherits(ctx, "nano"))