Skip to content

Commit f5aa174

Browse files
[skip style] [skip vbump] Restyle files
1 parent 6a332da commit f5aa174

File tree

4 files changed

+4
-4
lines changed

4 files changed

+4
-4
lines changed

tests/testthat/test-default_split_funs.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -251,7 +251,7 @@ test_that("drop_and_remove_levels also works with character variables", {
251251
test_that("trim_levels_to_map split function works", {
252252
skip_if_not_installed("tibble")
253253
require(tibble, quietly = TRUE)
254-
254+
255255
map <- data.frame(
256256
LBCAT = c("CHEMISTRY", "CHEMISTRY", "CHEMISTRY", "IMMUNOLOGY"),
257257
PARAMCD = c("ALT", "CRP", "CRP", "IGA"),

tests/testthat/test-lyt-tabulation.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -239,7 +239,7 @@ test_that("labelkids parameter works", {
239239
test_that("ref_group comparisons work", {
240240
skip_if_not_installed("tibble")
241241
require(tibble, quietly = TRUE)
242-
242+
243243
blthing <- basic_table() %>%
244244
split_cols_by("ARM", ref_group = "ARM1") %>%
245245
analyze("AGE", show_labels = "hidden") %>%

tests/testthat/test-printing.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -803,7 +803,7 @@ test_that("horizontal separator is propagated from table to print and export", {
803803
test_that("showing higher-level ncols works", {
804804
skip_if_not_installed("tibble")
805805
require(tibble, quietly = TRUE)
806-
806+
807807
mydat <- subset(ex_adsl, SEX %in% c("M", "F"))
808808
mydat$SEX2 <- factor(
809809
ifelse(

tests/testthat/test-subset-access.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -138,7 +138,7 @@ test_rowpaths <- function(tt, visonly = TRUE) {
138138
test_that("make_row_df, make_col_df give paths which all work", {
139139
skip_if_not_installed("tibble")
140140
require(tibble, quietly = TRUE)
141-
141+
142142
lyt <- basic_table() %>%
143143
split_cols_by("ARM") %>%
144144
split_cols_by("SEX", ref_group = "F") %>%

0 commit comments

Comments
 (0)