daattali/shinyjs

Nested show/hides don't work

jntrcs opened this issue · 1 comments

Is there a reason why nesting hidden()s inside one another does not work? When I click the action button in the following example, instead of showing the outer div on the screen, it prints "OuterDiv" to the console.

library(shiny)
library(shinyjs)
ui <- fluidPage(

   useShinyjs(),
   hidden(div(id="OuterDiv", "Outer Div",
              hidden(div(id="InnerDiv", "Inner Div")))),
   actionButton("Show", "Show Outer Div")
)
server <- function(input, output) {
    observeEvent(input$Show, {
        show("OuterDiv")
    })
}
shinyApp(ui = ui, server = server)

Output of sessioninfo

> sessionInfo()
R version 4.1.1 (2021-08-10)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Ubuntu 18.04.6 LTS

Matrix products: default
BLAS:   /usr/lib/x86_64-linux-gnu/blas/libblas.so.3.7.1
LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.7.1

locale:
 [1] LC_CTYPE=C.UTF-8       LC_NUMERIC=C           LC_TIME=C.UTF-8        LC_COLLATE=C.UTF-8     LC_MONETARY=C.UTF-8   
 [6] LC_MESSAGES=C.UTF-8    LC_PAPER=C.UTF-8       LC_NAME=C              LC_ADDRESS=C           LC_TELEPHONE=C        
[11] LC_MEASUREMENT=C.UTF-8 LC_IDENTIFICATION=C   

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
 [1] mapapp_0.0.0.9000              sp_1.4-2                       shinyBS_0.61                  
 [4] shinyjs_2.0.0                  leaflet.extras_1.0.0           leaflet_2.0.4.1               
 [7] forcats_0.5.0                  stringr_1.4.0                  purrr_0.3.4                   
[10] readr_1.3.1                    tidyr_1.1.2                    tibble_3.1.2                  
[13] ggplot2_3.3.5                  tidyverse_1.3.0                shiny_1.7.0                   
[16] podiumr_0.7.1.0.0.0.1631656730 dplyr_1.0.7                   

loaded via a namespace (and not attached):
 [1] fs_1.5.0                lubridate_1.7.10        fontawesome_0.2.2       bit64_4.0.5            
 [5] httr_1.4.2              rprojroot_2.0.2         tools_4.1.1             backports_1.2.0        
 [9] bslib_0.3.0             utf8_1.2.1              R6_2.5.0                DT_0.16                
[13] DBI_1.1.1               colorspace_2.0-1        withr_2.4.2             tidyselect_1.1.1       
[17] prettyunits_1.1.1       processx_3.5.2          bit_4.0.4               compiler_4.1.1         
[21] cli_3.0.1               rvest_0.3.6             xml2_1.3.2              desc_1.2.0             
[25] sass_0.4.0              scales_1.1.1            callr_3.7.0             digest_0.6.27          
[29] pkgconfig_2.0.3         htmltools_0.5.2         dbplyr_1.4.4            fastmap_1.1.0          
[33] htmlwidgets_1.5.3       rlang_0.4.11            readxl_1.3.1            rstudioapi_0.13        
[37] jquerylib_0.1.4         generics_0.1.0          jsonlite_1.7.2          crosstalk_1.1.0.1      
[41] magrittr_2.0.1          Rcpp_1.0.6              munsell_0.5.0           fansi_0.5.0            
[45] shinycssloaders_1.0.0   lifecycle_1.0.0         stringi_1.6.2           yaml_2.2.1             
[49] pkgbuild_1.2.0          grid_4.1.1              blob_1.2.1              promises_1.2.0.1       
[53] crayon_1.4.1            lattice_0.20-44         haven_2.3.1             hms_1.1.0              
[57] ps_1.6.0                pillar_1.6.1            pkgload_1.1.0           reprex_0.3.0           
[61] glue_1.4.2              leaflet.providers_1.9.0 RPostgres_1.3.3         modelr_0.1.8           
[65] vctrs_0.3.8             httpuv_1.5.5            testthat_3.0.1          cellranger_1.1.0       
[69] gtable_0.3.0            assertthat_0.2.1        cachem_1.0.4            mime_0.10              
[73] xtable_1.8-4            broom_0.7.3             later_1.2.0             rsconnect_0.8.17       
[77] ellipsis_0.3.2         ```

Closing as it appears to be a naming conflict with one of the function names in shinyjs and other libraries