Question

我正在开发一款具有动态下拉菜单的Shiny应用程序。现在它工作得很好但是在第一个屏幕中我需要用＆＃34; ALL＆＃34;设置我的两个下拉菜单。选项，由我定义。

此选项使用TRUE值屏蔽我的所有数据，并且在加载数据的无功功能中没有应用过滤器。

我无法写出真实的代码，但它是这样的：

SERVER.R

dataFiltered <- reactive({

    if(input$selector=="ALL"){
      mask_1=rep(TRUE, data[,.N])
    }
    else{
      mask_1=data$column==input$selector
    }

    data[mask_1]
})

observe({
    updateSelectizeInput(session, 'selector' ,choices = c("ALL",sort(unique(dataFiltered()[, some_column]))))
  })

UI.R

selectizeInput(inputId = 'selected', label = 'label', choices = NULL, selected = "ALL")

当我设置选项selected = "ALL"时，它默认显示所有数据 - 到目前为止这是我想要的 - 但是当我从下拉菜单中选择另一个选项时，它会自动将数据重新加载到所有数据而不是我的选择。

有什么建议吗？

提前致谢

动态下拉列表中的默认选择闪亮

0 个答案: