more targeted use of fini in examples and tests

Author: shikokuchuo

R/nanonext-package.R

@@ -98,10 +98,3 @@
 #' @useDynLib nanonext, .registration = TRUE
 #'
 "_PACKAGE"
-
-# nocov start
-# tested implicitly
-
-.onUnload <- function(libpath) library.dynam.unload("nanonext", libpath)
-
-# nocov end

R/utils.R

@@ -328,10 +328,12 @@ next_config <- function(refhook = list(), class = "", vec = FALSE, mark = FALSE)
 #'     to run the examples.
 #'
 #' @examples
-#' rm(list = ls())
-#' gc()
-#' Sys.sleep(1L)
-#' .Call(nanonext:::rnng_fini)
+#' if (Sys.info()[["sysname"]] == "Linux") {
+#'   rm(list = ls())
+#'   gc()
+#'   Sys.sleep(1L)
+#'   .Call(nanonext:::rnng_fini)
+#' }
 #'
 #' @keywords internal
 #'

README.Rmd

@@ -17,7 +17,6 @@ knitr::opts_chunk$set(
 
 <!-- badges: start -->
 [![CRAN status](https://www.r-pkg.org/badges/version/nanonext?color=112d4e)](https://CRAN.R-project.org/package=nanonext)
-[![R-multiverse status](https://img.shields.io/badge/dynamic/json?url=https%3A%2F%2Fr-multiverse.r-universe.dev%2Fapi%2Fpackages%2Fnanonext&query=%24.Version&label=R-multiverse&color=112d4e)](https://r-multiverse.r-universe.dev/nanonext)
 [![R-universe status](https://shikokuchuo.r-universe.dev/badges/nanonext?color=3f72af)](https://shikokuchuo.r-universe.dev/nanonext)
 [![R-CMD-check](https://github.com/shikokuchuo/nanonext/workflows/R-CMD-check/badge.svg)](https://github.com/shikokuchuo/nanonext/actions)
 [![codecov](https://codecov.io/gh/shikokuchuo/nanonext/graph/badge.svg)](https://app.codecov.io/gh/shikokuchuo/nanonext)

README.md

@@ -7,8 +7,6 @@
 
 [![CRAN
 status](https://www.r-pkg.org/badges/version/nanonext?color=112d4e)](https://CRAN.R-project.org/package=nanonext)
-[![R-multiverse
-status](https://img.shields.io/badge/dynamic/json?url=https%3A%2F%2Fr-multiverse.r-universe.dev%2Fapi%2Fpackages%2Fnanonext&query=%24.Version&label=R-multiverse&color=112d4e)](https://r-multiverse.r-universe.dev/nanonext)
 [![R-universe
 status](https://shikokuchuo.r-universe.dev/badges/nanonext?color=3f72af)](https://shikokuchuo.r-universe.dev/nanonext)
 [![R-CMD-check](https://github.com/shikokuchuo/nanonext/workflows/R-CMD-check/badge.svg)](https://github.com/shikokuchuo/nanonext/actions)

man/zzz.Rd

@@ -555,7 +555,9 @@ nanotestw(dial(s, url = "tls+tcp://.", tls = tls, error = FALSE) > 0)
 nanotestw(listen(s, url = "tls+tcp://.", tls = tls, error = FALSE) > 0)
 nanotestz(close(s1))
 nanotestz(close(s))
-rm(list = ls())
-gc()
-Sys.sleep(1L)
-.Call(nanonext:::rnng_fini)
+if (Sys.info()[["sysname"]] == "Linux") {
+  rm(list = ls())
+  gc()
+  Sys.sleep(1L)
+  .Call(nanonext:::rnng_fini)
+}