Skip to content

Commit

Permalink
[skip style] [skip vbump] Restyle files
Browse files Browse the repository at this point in the history
  • Loading branch information
github-actions[bot] committed Dec 12, 2024
1 parent 6a332da commit f5aa174
Show file tree
Hide file tree
Showing 4 changed files with 4 additions and 4 deletions.
2 changes: 1 addition & 1 deletion tests/testthat/test-default_split_funs.R
Original file line number Diff line number Diff line change
Expand Up @@ -251,7 +251,7 @@ test_that("drop_and_remove_levels also works with character variables", {
test_that("trim_levels_to_map split function works", {
skip_if_not_installed("tibble")
require(tibble, quietly = TRUE)

map <- data.frame(
LBCAT = c("CHEMISTRY", "CHEMISTRY", "CHEMISTRY", "IMMUNOLOGY"),
PARAMCD = c("ALT", "CRP", "CRP", "IGA"),
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-lyt-tabulation.R
Original file line number Diff line number Diff line change
Expand Up @@ -239,7 +239,7 @@ test_that("labelkids parameter works", {
test_that("ref_group comparisons work", {
skip_if_not_installed("tibble")
require(tibble, quietly = TRUE)

blthing <- basic_table() %>%
split_cols_by("ARM", ref_group = "ARM1") %>%
analyze("AGE", show_labels = "hidden") %>%
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-printing.R
Original file line number Diff line number Diff line change
Expand Up @@ -803,7 +803,7 @@ test_that("horizontal separator is propagated from table to print and export", {
test_that("showing higher-level ncols works", {
skip_if_not_installed("tibble")
require(tibble, quietly = TRUE)

mydat <- subset(ex_adsl, SEX %in% c("M", "F"))
mydat$SEX2 <- factor(
ifelse(
Expand Down
2 changes: 1 addition & 1 deletion tests/testthat/test-subset-access.R
Original file line number Diff line number Diff line change
Expand Up @@ -138,7 +138,7 @@ test_rowpaths <- function(tt, visonly = TRUE) {
test_that("make_row_df, make_col_df give paths which all work", {
skip_if_not_installed("tibble")
require(tibble, quietly = TRUE)

lyt <- basic_table() %>%
split_cols_by("ARM") %>%
split_cols_by("SEX", ref_group = "F") %>%
Expand Down

0 comments on commit f5aa174

Please sign in to comment.