onAttach logic outsourced to make a testable call (#106)

* onAttach logic outsourced to make a testable call

* codecov tuning

.github/workflows/coverage.yaml

@@ -1,10 +1,10 @@
 # For help debugging build failures open an issue on the RStudio community with the 'github-actions' tag.
 # https://community.rstudio.com/new-topic?category=Package%20development&tags=github-actions
 on:
-  # either: pull request to master opened
+  # either: pull request to master merged
   pull_request:
     types:
-      - opened
+      - merged
     branches:
       - master
   # or: manual trigger from GitHub pages

R/internals.R

@@ -85,11 +85,26 @@
   TRUE
 }
 
-# check the environment variable & report back
 
-.onAttach <- function(libname, pkgname)  {
+#' Internal function - executes on load, and informs about state of the RCZECHIA_HOME environment variable
+#'
+#' The function takes no parameters; it serves the need to make the .onAttach code testable
+#'
+#' @keywords internal
+
+.rhome_state <- function() {
 
   home <- Sys.getenv("RCZECHIA_HOME")
 
   if(home != "") packageStartupMessage("Using local RCzechia cache at ", home, appendLF = TRUE)
+
+}
+
+
+# check the environment variable & report back
+
+.onAttach <- function(libname, pkgname)  {
+
+  .rhome_state()
+
 }

tests/testthat/test-2-code-internal.R

@@ -59,9 +59,13 @@ test_that("envir variable", {
 
   expect_true(set_home((tempdir()))) # nastavení na tempdir projde
 
+  set_home((tempdir()))
+
+  expect_message(.rhome_state(), "Using local RCzechia cache at") # když je home nastaven, tak vyjde hláška
+
   expect_true(unset_home()) # vysazení projde
 
-  if(envir_backup != "") Sys.setenv("RCZECHIA_HOME" = envir_backup) # obnovit hodnotu ze zálohy, pokud dává smysl
+  if(envir_backup != "")  Sys.setenv("RCZECHIA_HOME" = envir_backup) # obnovit hodnotu ze zálohy, pokud dává smysl
 
 })