闪亮书签无法恢复selectizeinput

我设计了一个简单闪亮的应用程序（https://yuchenw.shinyapps.io/selectizeinput_bookmark/ https://yuchenw.shinyapps.io/selectizeinput_bookmark/）有两个 selectizeInputs。第二个 selectizeInput 的选择基于第一个 selectizeInput 的选择。例如，如果我在“选择字母”中选择“B”，则“选择数字”的可用选项将变为“B-1”、“B-2”和“B-3”。

这效果很好。但是当我添加书签按钮时，我无法恢复第二个 selectizeInput，只能恢复第一个。例如，如果我如下选择“B”和“B-3”，然后单击“书签”按钮，我会得到一个 URL ().

当我将 URL 复制并粘贴到 Web 浏览器时，第一个 URL 按预期是“B”，但第二个 URL 是“B-1”。

我觉得和我的设置有关系updateSelectizeInput，但我不知道如何解决它。下面是完整的代码。

library(shiny)
library(shinydashboard)

dat <- data.frame(
  Letter = rep(c("A", "B", "C"), each = 3),
  Number = paste(rep(c("A", "B", "C"), each = 3),
                 rep(1:3, times = 3),
                 sep = "-")
)

ui <- function(request){
  dashboardPage(
    header = dashboardHeader(title = ""),
    sidebar = dashboardSidebar(
      sidebarMenu(
        id = "Example",
        menuItem(
          text = "Page",
          tabName = "Page"
          )),
      bookmarkButton()),
    body = dashboardBody(
      tabItems(
        tabItem(
        tabName = "Page",
        h2("SelectizeInput Bookmark Example"),
        fluidRow(
          box(
            title = "", status = "primary", solidHeader = TRUE, width = 6, collapsible = TRUE,
            selectizeInput(inputId = "Letter_Select", 
                           label = "Select a letter",
                           choices = c("A", "B", "C"),
                           options = list(
                             placeholder = 'Please select a letter below',
                             onInitialize = I('function() { this.setValue(""); }'),
                             create = TRUE)
            ),
            selectizeInput(inputId = "Number_Select", 
                           label = "Select a number",
                           choices = paste(rep(c("A", "B", "C"), each = 3),
                                           rep(1:3, times = 3),
                                           sep = "-"),
                           options = list(
                             placeholder = 'Please select a number below',
                             onInitialize = I('function() { this.setValue(""); }'),
                             create = TRUE)
            )
          )
        )
        )
      )
    )
  )
}

server <- function(input, output, session){
  
  observeEvent(c(input$Letter_Select), {
    updateSelectizeInput(session, inputId = "Number_Select", 
                         label = "Select a number",
                         choices = dat$Number[dat$Letter %in% input$Letter_Select],
                         server = TRUE)
  },
  ignoreInit = TRUE)
  
  # List of selectizeinput
  selectize_inputs <- c("Letter_Select", "Number_Select")
  
  setBookmarkExclude(names = selectize_inputs)
  
  onBookmark(function(state){
    for (selectize_input in selectize_inputs){
      state$values[[selectize_input]] <- isolate({input[[selectize_input]]})
    }
  })
  
  onRestore(function(state){
    updateSelectizeInput(session, inputId = "Letter_Select", 
                         choices = c("A", "B", "C"),
                         selected = state$values[["Letter_Select"]],
                         server = TRUE)
    updateSelectizeInput(session, inputId = "Number_Select", 
                         choices = dat$Number[dat$Letter %in% state$values[["Letter_Select"]]],
                         selected = state$values[["Number_Select"]],
                         server = TRUE)
    
  })
}

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

请注意，我必须使用server = TRUE对于 selectizeInput 因为我的实际应用程序有很多需要显示的选择。我也需要使用shinydashboard and enableBookmarking = "url。请让我知道你在想什么。

这是因为observeEvent(c(input$Letter_Select),...)完成后触发onRestore并重置所做的更改Number_select.

你可以使用reactiveVal为了避免恢复状态后重置：

server <- function(input, output, session){
  
  restoreState <- reactiveVal(F)
  
  observeEvent(c(input$Letter_Select), {
    if (!restoreState()){    
      updateSelectizeInput(session, inputId = "Number_Select", 
                         label = "Select a number",
                         choices = dat$Number[dat$Letter %in% input$Letter_Select],
                         server = TRUE)
    }
    restoreState(F)
  },
  ignoreInit = TRUE)
  
  # List of selectizeinput
  selectize_inputs <- c("Letter_Select", "Number_Select")
  
  setBookmarkExclude(names = selectize_inputs)
  
  onBookmark(function(state){
    for (selectize_input in selectize_inputs){
      state$values[[selectize_input]] <- isolate({input[[selectize_input]]})
    }
  })
  
  onRestore(function(state){
    updateSelectizeInput(session, inputId = "Letter_Select", 
                         choices = c("A", "B", "C"),
                         selected = state$values[["Letter_Select"]],
                         server = TRUE)

    updateSelectizeInput(session, inputId = "Number_Select", 
                         choices = dat$Number[dat$Letter %in% state$values[["Letter_Select"]]],
                         selected = state$values[["Number_Select"]],
                         server = TRUE)
    restoreState(T)
  })
}

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