chore: remove unwanted assignment

insightsengineering · Oct 28, 2024 · 07590a5 · 07590a5
1 parent 05be09a
commit 07590a5
Show file tree

Hide file tree

Showing 5 changed files with 8 additions and 8 deletions.
diff --git a/R/tm_g_gh_boxplot.R b/R/tm_g_gh_boxplot.R
@@ -341,7 +341,7 @@ srv_g_boxplot <- function(id,
     # update sliders for axes taking constraints into account
     yrange_slider_state <- toggle_slider_server("yrange_scale")
     observe({
-      yrange_slider_state <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = yrange_slider_state,
         varname = input$yaxis_var,
         paramname = input$xaxis_param,

diff --git a/R/tm_g_gh_correlationplot.R b/R/tm_g_gh_correlationplot.R
@@ -601,15 +601,15 @@ srv_g_correlationplot <- function(id,
     yrange_slider <- toggle_slider_server("yrange_scale")
 
     observe({
-      xrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = xrange_slider,
         varname = input$xaxis_var,
         paramname = input$xaxis_param,
         ANL = anl_constraint()$ANL
       )
     })
     observe({
-      yrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = yrange_slider,
         varname = input$yaxis_var,
         paramname = input$yaxis_param,

diff --git a/R/tm_g_gh_density_distribution_plot.R b/R/tm_g_gh_density_distribution_plot.R
@@ -285,15 +285,15 @@ srv_g_density_distribution_plot <- function(id, # nolint
     yrange_slider <- toggle_slider_server("yrange_scale")
 
     observe({
-      xrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = xrange_slider,
         varname = input$xaxis_var,
         paramname = input$xaxis_param,
         ANL = anl_q()$ANL
       )
     })
     observe({
-      yrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = yrange_slider,
         varname = input$xaxis_var,
         paramname = input$xaxis_param,

diff --git a/R/tm_g_gh_scatterplot.R b/R/tm_g_gh_scatterplot.R
@@ -290,15 +290,15 @@ srv_g_scatterplot <- function(id,
     yrange_slider <- toggle_slider_server("yrange_scale")
 
     observe({
-      xrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = xrange_slider,
         varname = input$xaxis_var,
         paramname = input$xaxis_param,
         ANL = anl_q()$ANL
       )
     })
     observe({
-      yrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = yrange_slider,
         varname = input$yaxis_var,
         paramname = input$xaxis_param,

diff --git a/R/tm_g_gh_spaghettiplot.R b/R/tm_g_gh_spaghettiplot.R
@@ -398,7 +398,7 @@ srv_g_spaghettiplot <- function(id,
     # update sliders for axes taking constraints into account
     yrange_slider <- toggle_slider_server("yrange_scale")
     observe({
-      yrange_slider <- keep_slider_state_updated(
+      keep_slider_state_updated(
         state = yrange_slider,
         varname = input$yaxis_var,
         paramname = input$xaxis_param,