diff --git a/R/tm_a_pca.R b/R/tm_a_pca.R
index 70a1d9845..ba02a651b 100644
--- a/R/tm_a_pca.R
+++ b/R/tm_a_pca.R
@@ -40,7 +40,9 @@
 #'       dat = teal.transform::data_extract_spec(
 #'         dataname = "ADSL",
 #'         select = teal.transform::select_spec(
-#'           choices = teal.transform::variable_choices(data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")),
+#'           choices = teal.transform::variable_choices(
+#'             data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")
+#'           ),
 #'           selected = c("BMRKR1", "AGE"),
 #'           multiple = TRUE
 #'         ),
diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R
index 8069530f6..a5181754b 100644
--- a/R/tm_g_distribution.R
+++ b/R/tm_g_distribution.R
@@ -63,7 +63,10 @@
 #' datanames(data) <- datanames
 #' data@join_keys <- cdisc_join_keys(!!!datanames)
 #'
-#' vars1 <- choices_selected(variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")), selected = NULL)
+#' vars1 <- choices_selected(
+#'   variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),
+#'   selected = NULL
+#' )
 #'
 #' app <- teal::init(
 #'   data = data,
diff --git a/man/tm_a_pca.Rd b/man/tm_a_pca.Rd
index b10a1168b..4264be4e6 100644
--- a/man/tm_a_pca.Rd
+++ b/man/tm_a_pca.Rd
@@ -89,7 +89,9 @@ app <- teal::init(
       dat = teal.transform::data_extract_spec(
         dataname = "ADSL",
         select = teal.transform::select_spec(
-          choices = teal.transform::variable_choices(data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")),
+          choices = teal.transform::variable_choices(
+            data = data[["ADSL"]], c("BMRKR1", "AGE", "EOSDY")
+          ),
           selected = c("BMRKR1", "AGE"),
           multiple = TRUE
         ),
diff --git a/man/tm_g_distribution.Rd b/man/tm_g_distribution.Rd
index 515864736..bdf26d7cf 100644
--- a/man/tm_g_distribution.Rd
+++ b/man/tm_g_distribution.Rd
@@ -107,7 +107,10 @@ datanames <- c("ADSL")
 datanames(data) <- datanames
 data@join_keys <- cdisc_join_keys(!!!datanames)
 
-vars1 <- choices_selected(variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")), selected = NULL)
+vars1 <- choices_selected(
+  variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),
+  selected = NULL
+)
 
 app <- teal::init(
   data = data,