fixes #101

qfes · Oct 20, 2023 · 90c35d4 · 90c35d4
1 parent 016d7e6
commit 90c35d4
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/shiny.R b/R/shiny.R
@@ -205,8 +205,7 @@ update_layer.rdeck_proxy <- add_layer.rdeck_proxy
 #' @export
 set_layer_visibility <- function(rdeck, id, visible = cur_value(), visibility_toggle = cur_value()) {
   tidyassert::assert_inherits(rdeck, "rdeck_proxy")
-  layer <- new_layer(
-    NULL,
+  layer <- list(
     id = id,
     visible = visible,
     visibility_toggle = visibility_toggle
@@ -217,7 +216,7 @@ set_layer_visibility <- function(rdeck, id, visible = cur_value(), visibility_to
   validate_visibility_toggle(layer)
 
   json <- json_stringify(
-    select(layer, -where(is_cur_value)),
+    purrr::discard(layer, is_cur_value),
     camel_case = TRUE,
     auto_unbox = TRUE
   )