search

rstudio / shinydashboard

Shiny Dashboarding framework
https://rstudio.github.io/shinydashboard/
Other
892 stars 300 forks source link

Minor bug: `disable = TRUE` behaves a bit differently in barbara/changes #209

Closed bborgesr closed 7 years ago

bborgesr commented 7 years ago

I think this is because the re-enabling of the AdminLTE css transitions (I don't think the new inputs are actually influencing this at all, which was why I was initially testing it, and also why I have a bookmark setup below).

Example:

# devtools::install_github("rstudio/shinydashboard")
# devtools::install_github("rstudio/shinydashboard@barbara/changes")

library(shiny)
library(shinydashboard)

ui <- function(req) {
  dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(disable = TRUE),
    dashboardBody(actionButton("go", "Go"))
  )
}

server <- function(input, output, session) {
  observeEvent(input$go, {
    session$doBookmark()
  })
}

enableBookmarking("url")
shinyApp(ui, server)