Merge pull request #1 from RCONIS/dev/friedrich_pahlke

Add uuid, glue, and httr to R dependencies in workflow configuration

Author: fpahlke

.Rbuildignore

@@ -28,3 +28,5 @@ NEWS\.tex
 .*_snaps.*
 ^Meta$
 ^CNAME$
+^_pkgdown\.yml$
+^\.github$

DESCRIPTION

@@ -40,10 +40,10 @@ Imports:
 	tools,
     graphics,
     rlang,
+    uuid (>= 1.0-3),
     knitr (>= 1.19)
 Suggests: 
     testthat (>= 3.0.0),
-    uuid (>= 1.0-3),
     writexl (>= 1.5.0),
     glue (>= 1.6.0),
     httr (>= 1.4.0),

R/class_random_block_size_randomizer.R

@@ -30,6 +30,7 @@
 #' 
 #' @param blockSizes List of block size configurations, each mapping treatment arm IDs to sizes.
 #' @param seed Integer random seed used for reproducibility.
+#' @param ... Additional arguments (currently unused).
 #'
 #' @return A `RandomBlockSizeRandomizer` reference class object.
 #' 

R/f_random_stratum_builder.R

@@ -55,7 +55,7 @@ createStratumId <- function(factorLevels) {
             )
         }
 
-        factorLevel <- factorLevels.get(factorName)
+        factorLevel <- factorLevels[[factorName]]
         if (is.null(factorLevel) || nchar(trimws(factorLevel)) == 0) {
             stop("The specified factor level (#", counter, ") is invalid")
         }

R/f_seed.R

@@ -78,15 +78,11 @@
 #' is better than the pseudo-random number algorithms typically used
 #' in computer programs. For more information see \url{https://www.random.org}.
 #'
-#' @seealso \link{getSimulatedTwoArmMeans}
-#'
 #' @return an integer value or vector containing one or more seeds.
 #'
 #' @export
 #'
 createSeed <- function(numberOfValues = 1, minValue = 1000000, maxValue = 9999999, ...) {
-    .assertPackageIsInstalled("httr")
-    .assertPackageIsInstalled("glue")
     .assertIsSingleInteger(numberOfValues, "numberOfValues", validateType = FALSE)
     .assertIsInClosedInterval(numberOfValues, "numberOfValues", lower = 1, upper = 1000)
     .assertIsSingleInteger(minValue, "minValue", validateType = FALSE)
@@ -97,8 +93,12 @@ createSeed <- function(numberOfValues = 1, minValue = 1000000, maxValue = 999999
         stop(C_EXCEPTION_TYPE_CONFLICTING_ARGUMENTS, "'minValue' (", minValue, ") ",
             "must be smaller than argument 'maxValue'(", maxValue, ")")
     }
+    
     tryCatch(
         {
+            .assertPackageIsInstalled("httr")
+            .assertPackageIsInstalled("glue")
+            
             args <- list(...)
             if (length(args) > 0 && !is.null(args[["test_exception"]])) {
                 stop(args[["test_exception"]])

man/createSeed.Rd

@@ -21,6 +21,9 @@
 # ------------------------------------------------------------------------------
 
 test_that("For invalid input arguments 'createSeed' throws meaningful exceptions", {
+    testthat::skip_if_not_installed("httr")
+    testthat::skip_if_not_installed("glue")
+    
     expect_error(createSeed(numberOfValues = 0), 
         "Argument out of bounds: 'numberOfValues' (0) is out of bounds [1; 1000]", fixed = TRUE)
     expect_error(createSeed(numberOfValues = 1, minValue = -1), 
@@ -32,6 +35,9 @@ test_that("For invalid input arguments 'createSeed' throws meaningful exceptions
 })
 
 test_that("The results of 'createSeed' depend on the input arguments as expected", {
+    testthat::skip_if_not_installed("httr")
+    testthat::skip_if_not_installed("glue")
+    
     expect_length(createSeed(), 1)
     expect_length(createSeed(numberOfValues = 9), 9)
 
@@ -41,6 +47,9 @@ test_that("The results of 'createSeed' depend on the input arguments as expected
 })
 
 test_that("'createSeed' returns valid seed although network connection is missing", {
+    testthat::skip_if_not_installed("httr")
+    testthat::skip_if_not_installed("glue")
+        
     expect_warning(seed <- createSeed(
         minValue = 100000000, maxValue = 999999999,
         test_exception = "network error"