update to workflow; added \donttest where possible

hfgolino · Aug 10, 2023 · 2542720 · 2542720
1 parent 7015c5e
commit 2542720
Show file tree

Hide file tree

Showing 9 changed files with 13 additions and 10 deletions.
diff --git a/.github/workflows/r.yml b/.github/workflows/r.yml
@@ -38,8 +38,7 @@ jobs:
         with:
           r-version: ${{ matrix.config.r }}
           http-user-agent: ${{ matrix.config.http-user-agent }}
-          use-public-rspm: true
-          install-ghostscript: true          
+          use-public-rspm: true        
 
       - uses: r-lib/actions/setup-r-dependencies@v2
         with:
@@ -48,4 +47,5 @@ jobs:
 
       - uses: r-lib/actions/check-r-package@v2
         with:
+          args: 'c("--no-manual", "--as-cran")'
           upload-snapshots: true
diff --git a/R/S3plots.R b/R/S3plots.R
@@ -133,7 +133,7 @@
 #' \emph{For more worked examples than below, see \href{https://tinyurl.com/plots-in-eganet}{Plots in \{EGAnet\}}}
 #' 
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' # Using different arguments in {GGally}'s `ggnet2`
 #' plot(ega.wmt, node.size = 6, edge.size = 4)
 #' 

diff --git a/R/compare.EGA.plots.R b/R/compare.EGA.plots.R
@@ -56,7 +56,7 @@
 #' ega1 <- EGA(sample1)
 #' ega2 <- EGA(sample2)
 #' 
-#' \dontrun{
+#' \donttest{
 #' # Compare EGAs via plot
 #' compare.EGA.plots(
 #'   ega1, ega2,

diff --git a/R/helpers.R b/R/helpers.R
@@ -556,7 +556,7 @@ restore_state <- function()
 
 #' @noRd
 # Wrapper for parallelization ----
-# Updated 03.08.2023
+# Updated 10.08.2023
 parallel_process <- function(
     iterations, # number of iterations
     datalist = NULL, # list of data
@@ -682,6 +682,9 @@ parallel_process <- function(
 
   }
 
+  # Force close of connections
+  future::plan(strategy = "sequential")
+
   # Return results
   return(results)
 

diff --git a/R/hierEGA.R b/R/hierEGA.R
@@ -269,7 +269,7 @@
 #'   plot.EGA = FALSE # No plot for CRAN checks
 #' )
 #' 
-#' \dontrun{
+#' \donttest{
 #' # Plot multilevel plot
 #' plot(opt.hier, plot.type = "multilevel")
 #' 

diff --git a/R/jsd.ergoInfo.R b/R/jsd.ergoInfo.R
@@ -40,7 +40,7 @@
 #' Values can range between 0 and 1
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' # Dynamic EGA individual and population structures
 #' dyn1 <- dynEGA.ind.pop(
 #'   data = sim.dynEGA[,-26], n.embed = 5, tau = 1,

diff --git a/man/EGAnet-plot.Rd b/man/EGAnet-plot.Rd
diff --git a/man/compare.EGA.plots.Rd b/man/compare.EGA.plots.Rd
diff --git a/man/hierEGA.Rd b/man/hierEGA.Rd