Skip to content

Commit

Permalink
Fix check
Browse files Browse the repository at this point in the history
  • Loading branch information
edelarua committed Nov 25, 2024
1 parent a717455 commit c1803f2
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 4 deletions.
2 changes: 1 addition & 1 deletion R/ard_event_rates.R
Original file line number Diff line number Diff line change
Expand Up @@ -157,7 +157,7 @@ ard_event_rates <- function(data,

if (ord) {
lst_results[[length(lst_results)]] <- lst_results[[length(lst_results)]] |>
mutate(variable_level = as.list(as.character(unlist(variable_level))))
dplyr::mutate(variable_level = as.list(as.character(unlist(.data$variable_level))))
}
}

Expand Down
1 change: 1 addition & 0 deletions _pkgdown.yml
Original file line number Diff line number Diff line change
Expand Up @@ -88,6 +88,7 @@ reference:
- ard_categorical_ci.data.frame
- ard_regression
- ard_regression_basic
- ard_event_rates

- title: "Helpers"
- contents:
Expand Down
6 changes: 3 additions & 3 deletions tests/testthat/test-ard_event_rates.R
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ test_that("ard_event_rates() works with default settings", {
variable_level == "CARDIAC DISORDERS",
stat_name == "n"
) |>
get_ard_statistics(),
cards::get_ard_statistics(),
list(
n = cards::ADAE |>
dplyr::filter(
Expand Down Expand Up @@ -98,7 +98,7 @@ test_that("ard_event_rates(ordered) works", {
variable_level == "MODERATE",
stat_name == "n"
) |>
get_ard_statistics(),
cards::get_ard_statistics(),
list(
n = adae |>
dplyr::arrange(AESEV) |>
Expand Down Expand Up @@ -214,7 +214,7 @@ test_that("ard_hierarchical_count() works with by variable not present in 'denom
group2_level == "MILD",
variable_level == "CARDIAC DISORDERS"
) |>
get_ard_statistics(),
cards::get_ard_statistics(),
list(
n = cards::ADAE |>
dplyr::filter(
Expand Down

0 comments on commit c1803f2

Please sign in to comment.