From efc0dc324bca536dda3e97dab4cd7d0d2f88ef0e Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Mon, 7 Oct 2024 12:04:08 +0000 Subject: [PATCH] [skip style] [skip vbump] Restyle files --- R/tm_g_gh_boxplot.R | 2 -- R/toggleable_slider.R | 1 - 2 files changed, 3 deletions(-) diff --git a/R/tm_g_gh_boxplot.R b/R/tm_g_gh_boxplot.R index 4d9af8fa..b28b8c7a 100644 --- a/R/tm_g_gh_boxplot.R +++ b/R/tm_g_gh_boxplot.R @@ -324,10 +324,8 @@ srv_g_boxplot <- function(id, xparam_label = module_args$"Select a Biomarker", xchoices = resolved_x$choices, xselected = resolved_x$selected, - ychoices = resolved_y$choices, yselected = resolved_y$selected, - facet_choices = resolved_facet_var$choices, facet_selected = resolved_facet_var$selected, trt_choices = resolved_trt$choices, diff --git a/R/toggleable_slider.R b/R/toggleable_slider.R index d74c4587..2a02ae0b 100644 --- a/R/toggleable_slider.R +++ b/R/toggleable_slider.R @@ -219,7 +219,6 @@ toggle_slider_server <- function(id, is_dichotomous_slider = TRUE) { state_slider$min <- min(state_slider$min, state_slider$value[1]) } do.call(updateSliderInput, c(list(session, "slider"), state_slider)) - } else { if (length(state_slider$value) > 1) { do.call(updateNumericInput, c(list(session, "value_low"), state_low))