chore: simplify

insightsengineering · Oct 16, 2024 · 05befbf · 05befbf
1 parent c068ac3
commit 05befbf
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/toggleable_slider.R b/R/toggleable_slider.R
@@ -177,10 +177,9 @@ toggle_slider_server <- function(id, is_dichotomous_slider = TRUE, step_slider =
 
       # only update provided components, do not discasrd others
       old_state <- cur_state()
-      if (is.null(old_state)) {
-        old_state <- new_state
+      if (!is.null(old_state)) {
+        new_state <- utils::modifyList(old_state, new_state)
       }
-      new_state <- utils::modifyList(old_state, new_state)
 
       if (!setequal(new_state, cur_state())) {
         cur_state(new_state)