Skip to content

Commit

Permalink
Fix problem I caught by the new function.
Browse files Browse the repository at this point in the history
  • Loading branch information
llrs committed Mar 20, 2024
1 parent 7a99d23 commit 817cf57
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 4 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -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
2 changes: 1 addition & 1 deletion R/reporting.R
Original file line number Diff line number Diff line change
Expand Up @@ -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){
Expand Down
2 changes: 1 addition & 1 deletion man/distribution.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

2 changes: 1 addition & 1 deletion tests/testthat/test-distribution.R
Original file line number Diff line number Diff line change
Expand Up @@ -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"))
})

0 comments on commit 817cf57

Please sign in to comment.