Make input_switch() work with Shiny bookmarking

[matt-dray]

Could input_switch() be made to work with Shiny bookmarking? This would allow users to 'save' the state of the component in the app, which is the normal behaviour for Shiny's own components. Note that the same behaviour is true of input_dark_mode() as well.

Here's a reprex with the input_switch component, as well as shiny::checkboxInput() for comparison:

library(shiny)
library(bslib)

ui <- function() {
  page_fluid(
    input_switch(id = "inputswitch", label = "Switch"),
    verbatimTextOutput("inputswitch_value"),
    checkboxInput(inputId = "checkbox", label = "Checkbox"),
    verbatimTextOutput("checkbox_value"),
    bookmarkButton()
  )
}

server <- function(input, output) {
  output$inputswitch_value <- renderText({input$inputswitch})
  output$checkbox_value <- renderText({input$checkbox})
}

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

Both components are off by default. If you turn them both on and then click the bookmark button, the URL will be appended with ?_inputs_&inputswitch=true&checkbox=true as expected.

But when you visit that URL, the input switch is still off, whereas the checkbox's state has been respected:

I couldn't find another issue or PR that matched this one. I couldn't see a reference in the docs to bookmarking. I see that input_switch()'s lifecycle stage 'experimental', so perhaps this functionality isn't planned until the component exits this phase.

[gadenbuie]

Thanks for the reminder! It was just an oversight on our part. It'll be fixed in the dev version of bslib shortly.

[github-actions]

This issue has been automatically locked. If you have found a related problem, please open a new issue (with a reproducible example or feature request) and link to this issue.
🙋 Need help? Connect with us on Discord or Posit Community.