Fix problem I caught by the new function.

llrs · Mar 20, 2024 · 817cf57 · 817cf57
1 parent 7a99d23
commit 817cf57
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -35,4 +35,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.0
+RoxygenNote: 7.3.1
diff --git a/R/reporting.R b/R/reporting.R
@@ -48,7 +48,7 @@ inspect <- function(i, pheno, omit = NULL, index_name = "batch") {
 #' nas <- c(137, 70) # Omit rows with NA to avoid warnings in design
 #' index <- design(pheno = survey[-nas, columns], size_subset = 70,
 #'                 iterations = 10)
-#' batches <- inspect(index, survey[, columns])
+#' batches <- inspect(index, survey[-nas, columns])
 #' distribution(batches, "Sex")
 #' distribution(batches, "Smoke")
 distribution <- function(report, column){

diff --git a/man/distribution.Rd b/man/distribution.Rd
diff --git a/tests/testthat/test-distribution.R b/tests/testthat/test-distribution.R
@@ -5,7 +5,7 @@ test_that("distribution works", {
   nas <- c(137, 70)
   index <- design(pheno = survey[-nas, columns], size_subset = 70,
                   iterations = 10)
-  batches <- inspect(index, survey[, columns])
+  batches <- inspect(index, survey[-nas, columns])
   expect_true(distribution(batches, "Sex"))
   expect_true(distribution(batches, "Smoke"))
 })