cran prep

DESCRIPTION

@@ -20,8 +20,6 @@ Depends:
     estimatr (>= 0.10.0)
 Imports:
     rlang, generics
-Remotes:
-    DeclareDesign/DesignLibrary
 License: MIT + file LICENSE
 URL: https://declaredesign.org, https://github.com/DeclareDesign/DeclareDesign
 BugReports: https://github.com/DeclareDesign/DeclareDesign/issues

R/expand_design.R

@@ -11,6 +11,8 @@
 #' @return if set of designs is size one, the design, otherwise a `by`-list of designs. Designs are given a parameters attribute with the values of parameters assigned by expand_design.
 #'
 #' @examples
+#' 
+#' \dontrun{
 #'
 #' # in conjunction with DesignLibrary
 #' 
@@ -32,15 +34,12 @@
 #' # returns list of eight designs
 #' designs <- expand_design(designer, N = seq(30, 100, 10))
 #'
-#' \dontrun{
 #'  # diagnose a list of designs created by expand_design or redesign
 #'  diagnosis <- diagnose_design(designs, sims = 50)
-#' }
 #'
 #' # returns a single design
 #' large_design <- expand_design(designer, N = 200)
 #'
-#' \dontrun{
 #'  diagnose_large_design <- diagnose_design(large_design, sims = 50)
 #' }
 #'

tests/testthat/test-design-library.R

@@ -13,6 +13,9 @@ test_that("design library dependency works",{
 })
 
 
+
+# fan out
+
 test_that("MH sim ids", {
   skip_if_not_installed("DesignLibrary")
   skip_on_cran()
@@ -27,3 +30,16 @@ test_that("MH sim ids", {
   expect_equal(sx$estimate[1], sx$estimate[2])
   expect_equal(sx$estimate[3], sx$estimate[4])
 })
+
+
+test_that("fan out IDs are correct", {
+
+  skip_if_not_installed("DesignLibrary")
+
+  sims <- c(30, 1, 2, 1, 1, 2)
+  design <- DesignLibrary::two_arm_designer(rho = 0)
+
+  sx <- simulate_design(design, sims = sims)
+
+  expect_equivalent(vapply(sx[c("step_1_draw", "step_3_draw", "step_6_draw")], max, 0), c(30, 60, 120))
+})

tests/testthat/test-simulate-design.R

@@ -93,19 +93,6 @@ test_that("no estimates estimands declared", {
 })
 
 
-test_that("fan out IDs are correct", {
-
-  skip_if_not_installed("DesignLibrary")
-
-  sims <- c(30, 1, 2, 1, 1, 2)
-  design <- DesignLibrary::two_arm_designer(rho = 0)
-
-  sx <- simulate_design(design, sims = sims)
-
-  expect_equivalent(vapply(sx[c("step_1_draw", "step_3_draw", "step_6_draw")], max, 0), c(30, 60, 120))
-})
-
-
 test_that("designs with some estimators that don't have p.values return the p.values for the estimators that do have them", {
   my_custom_estimator <- function(data) return(data.frame(estimate = 5))