remove values() after variables(multiple = TRUE)

Author: gogonzo

R/tm_a_regression.R

@@ -148,8 +148,7 @@ tm_a_regression <- function(label = "Regression Analysis",
                                 choices = is.numeric,
                                 selected = tidyselect::last_col(),
                                 multiple = TRUE
-                              ),
-                              teal.transform::values()
+                              )
                             ),
                             response,
                             plot_height = c(600, 200, 2000),

R/tm_g_scatterplot_picks.R

@@ -16,17 +16,15 @@ tm_g_scatterplot.picks <- function(label = "Scatterplot",
                                        choices = teal.transform::is_categorical(min.len = 2, max.len = 10),
                                        selected = NULL,
                                        multiple = TRUE
-                                     ),
-                                     teal.transform::values()
+                                     )
                                    ),
                                    size_by = teal.transform::picks(
                                      teal.transform::datasets(),
                                      teal.transform::variables(
-                                       choices = teal.transform::is_categorical(min.len = 2, max.len = 10),
+                                       choices = is.numeric,
                                        selected = NULL,
                                        multiple = TRUE
-                                     ),
-                                     teal.transform::values()
+                                     )
                                    ),
                                    row_facet = teal.transform::picks(
                                      teal.transform::datasets(),

R/tm_t_crosstable.R

@@ -169,8 +169,7 @@ tm_t_crosstable <- function(label = "Cross Table",
                               teal.transform::variables(
                                 choices = teal.transform::is_categorical(min.len = 2, max.len = 10),
                                 selected = 1L, multiple = TRUE, ordered = TRUE
-                              ),
-                              teal.transform::values()
+                              )
                             ),
                             y,
                             show_percentage = TRUE,

R/tm_t_crosstable_picks.R

@@ -5,8 +5,7 @@ tm_t_crosstable.picks <- function(label = "Cross Table",
                                     teal.transform::variables(
                                       choices = teal.transform::is_categorical(min.len = 2, max.len = 10),
                                       selected = 1L, multiple = TRUE, ordered = TRUE
-                                    ),
-                                    teal.transform::values()
+                                    )
                                   ),
                                   y = teal.transform::picks(
                                     teal.transform::datasets(),