Fixing environment in .gencustom

R/generate_dist.R

@@ -368,7 +368,7 @@
   names(arg_list) <- var_vec
   assertNotInVector("n", names(arg_list))
   arg_list <- c(n = n, arg_list)
-  new <- do.call(fn, arg_list)
+  new <- do.call(fn, arg_list, envir = envir)
 
   new
 }

tests/testthat/test-generate_dist.R

@@ -171,30 +171,31 @@ test_that("clusterSize data is generated as expected.", {
 
 })
 
+
 # .gencustom ----
-# test_that("custom data is generated as expected.", {
-#   skip_on_cran()
-#   
-#   .trunc_norm <- function(n, lower, upper, mu = 0, s = 1.5) {
-#     
-#     F.a <- pnorm(lower, mean = mu, sd = s)
-#     F.b <- pnorm(upper, mean = mu, sd = s)
-#     
-#     u <- runif(n, min = F.a, max = F.b)
-#     qnorm(u, mean = mu, sd = s)
-#     
-#   }
-#   
-#   def <- 
-#     defData(varname = "x", formula = 5, dist = "poisson") |>
-#     defData(varname = "y", formula = ".trunc_norm", 
-#             variance = "s = 100, lower = x - 1, upper = x + 1",
-#             dist = "custom"
-#     )
-#   
-#   dd <- genData(10000, def)
-#   
-#   expect_true( dd[, min(y)] > dd[, min(x-1)])
-#   expect_true( dd[, max(y)] < dd[, max(x+1)])
-#   
-# })
+test_that("custom data is generated as expected.", {
+  skip_on_cran()
+
+  trunc_norm <- function(n, lower, upper, mu = 0, s = 1.5) {
+
+    F.a <- pnorm(lower, mean = mu, sd = s)
+    F.b <- pnorm(upper, mean = mu, sd = s)
+
+    u <- runif(n, min = F.a, max = F.b)
+    qnorm(u, mean = mu, sd = s)
+
+  }
+
+  def <-
+    defData(varname = "x", formula = 5, dist = "poisson") |>
+    defData(varname = "y", formula = "trunc_norm",
+            variance = "s = 100, lower = x - 1, upper = x + 1",
+            dist = "custom"
+    )
+
+  dd <- genData(10000, def)
+
+  expect_true( dd[, min(y)] > dd[, min(x-1)])
+  expect_true( dd[, max(y)] < dd[, max(x+1)])
+
+})