From f5aa17434e345a8f15c67de3c8b9b08e98aa1f97 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Thu, 12 Dec 2024 10:47:11 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 tests/testthat/test-default_split_funs.R | 2 +-
 tests/testthat/test-lyt-tabulation.R     | 2 +-
 tests/testthat/test-printing.R           | 2 +-
 tests/testthat/test-subset-access.R      | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/testthat/test-default_split_funs.R b/tests/testthat/test-default_split_funs.R
index bc27f3107..168ba34ba 100644
--- a/tests/testthat/test-default_split_funs.R
+++ b/tests/testthat/test-default_split_funs.R
@@ -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"),
diff --git a/tests/testthat/test-lyt-tabulation.R b/tests/testthat/test-lyt-tabulation.R
index 1ef19932f..154ec2eca 100644
--- a/tests/testthat/test-lyt-tabulation.R
+++ b/tests/testthat/test-lyt-tabulation.R
@@ -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") %>%
diff --git a/tests/testthat/test-printing.R b/tests/testthat/test-printing.R
index d9334087f..148f8f250 100644
--- a/tests/testthat/test-printing.R
+++ b/tests/testthat/test-printing.R
@@ -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(
diff --git a/tests/testthat/test-subset-access.R b/tests/testthat/test-subset-access.R
index f41a28c09..f136dc6ef 100644
--- a/tests/testthat/test-subset-access.R
+++ b/tests/testthat/test-subset-access.R
@@ -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") %>%