RC9d; style & docs

Author: shikokuchuo

R/docs.R

@@ -21,7 +21,7 @@
 #' @description Protocols implemented by \{nanonext\}.
 #'
 #'     For an authoritative guide please refer to the online documentation for
-#'     the NNG library at <https://nng.nanomsg.org/man/>.
+#'     the NNG library at \url{https://nng.nanomsg.org/man/}.
 #'
 #' @section Bus (mesh networks):
 #'
@@ -121,14 +121,15 @@
 #'     received.
 #'
 #' @name protocols
+#'
 NULL
 
 #' Transports [Documentation]
 #'
 #' @description Transports supported by \{nanonext\}.
 #'
 #'     For an authoritative guide please refer to the online documentation for
-#'     the NNG library at <https://nng.nanomsg.org/man/>.
+#'     the NNG library at \url{https://nng.nanomsg.org/man/}.
 #'
 #'
 #' @section Inproc:
@@ -282,18 +283,20 @@ NULL
 #'     }
 #'
 #' @name transports
+#'
 NULL
 
 #' Opts [Documentation]
 #'
-#' @description Options that can be set on Sockets, Contexts, Dialers or Listeners.
+#' @description Options that can be set on Sockets, Contexts, Streams, Dialers
+#'     or Listeners.
 #'
 #'     Some options are only meaningful or supported in certain contexts; for
 #'     example there is no single meaningful address for a socket, since sockets
 #'     can have multiple dialers and endpoints associated with them.
 #'
 #'     For an authoritative guide please refer to the online documentation for
-#'     the NNG library at <https://nng.nanomsg.org/man/>.
+#'     the NNG library at \url{https://nng.nanomsg.org/man/}.
 #'
 #' @section Global Options:
 #'
@@ -473,5 +476,6 @@ NULL
 #'     }
 #'
 #' @name opts
+#'
 NULL
 

man/opts.Rd

@@ -748,17 +748,17 @@ SEXP rnng_ncurl_aio(SEXP http, SEXP convert, SEXP method, SEXP headers, SEXP dat
   REPROTECT(env = Rf_eval(env, clo), pxi);
 #endif
   Rf_defineVar(nano_AioSymbol, aio, env);
-  SEXP funlist = nano_aioNFuncs;
-  for (int i = 0; i < 4; i++, funlist = CDR(funlist)) {
+  int i = 0;
+  for (SEXP fnlist = nano_aioNFuncs; fnlist != R_NilValue; fnlist = CDR(fnlist)) {
     PROTECT(fun = Rf_allocSExp(CLOSXP));
     SET_FORMALS(fun, nano_aioFormals);
-    SET_BODY(fun, CAR(funlist));
+    SET_BODY(fun, CAR(fnlist));
     SET_CLOENV(fun, clo);
-    switch (i) {
-    case 0: R_MakeActiveBinding(nano_StatusSymbol, fun, env);
-    case 1: R_MakeActiveBinding(nano_HeadersSymbol, fun, env);
-    case 2: R_MakeActiveBinding(nano_RawSymbol, fun, env);
-    case 3: R_MakeActiveBinding(nano_DataSymbol, fun, env);
+    switch (++i) {
+    case 1: R_MakeActiveBinding(nano_StatusSymbol, fun, env);
+    case 2: R_MakeActiveBinding(nano_HeadersSymbol, fun, env);
+    case 3: R_MakeActiveBinding(nano_RawSymbol, fun, env);
+    case 4: R_MakeActiveBinding(nano_DataSymbol, fun, env);
     }
     UNPROTECT(1);
   }