Skip to content

Commit

Permalink
Fix check
Browse files Browse the repository at this point in the history
  • Loading branch information
edelarua committed Oct 18, 2024
1 parent e4a7829 commit 9da3fff
Show file tree
Hide file tree
Showing 3 changed files with 6 additions and 2 deletions.
1 change: 1 addition & 0 deletions R/count_occurrences_by_grade.R
Original file line number Diff line number Diff line change
Expand Up @@ -253,6 +253,7 @@ a_count_occurrences_by_grade <- function(df,
denom = c("N_col", "n", "N_row"),
.N_col, # nolint
.N_row, # nolint
.df_row,
.var = NULL,
.stats = NULL,
.formats = NULL,
Expand Down
3 changes: 3 additions & 0 deletions man/count_occurrences_by_grade.Rd

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

4 changes: 2 additions & 2 deletions tests/testthat/test-count_occurrences_by_grade.R
Original file line number Diff line number Diff line change
Expand Up @@ -139,7 +139,7 @@ testthat::test_that("a_count_occurrences_by_grade works with healthy input.", {
options("width" = 100)

result <- a_count_occurrences_by_grade(
df = raw_data, .N_col = 10, .N_row = 10,
df = raw_data, .N_col = 10, .N_row = 10, .df_row = raw_data,
.stats = get_stats("count_occurrences_by_grade"),
.var = "AETOXGR", id = "USUBJID"
)
Expand All @@ -151,7 +151,7 @@ testthat::test_that("a_count_occurrences_by_grade works with custom input.", {
options("width" = 100)

result <- a_count_occurrences_by_grade(
df = raw_data, .N_col = 10, .N_row = 10,
df = raw_data, .N_col = 10, .N_row = 10, .df_row = raw_data,
.stats = "count_fraction",
.formats = c(count_fraction = "xx (xx%)"),
.labels = list("1" = "Level: 1", "2" = "LVL 2", "count_fraction.3" = "Count of 3", "4" = "Missing 4"),
Expand Down

0 comments on commit 9da3fff

Please sign in to comment.