R Shiny - 使用 updateSelectizeInput 优化页面加载时间

我们的闪亮页面有多个selectizeInput控件，其中一些在下拉框中有很长的列表。因此，初始加载时间很长，因为需要预先填充所有下拉框selectizeInput控制。

编辑：请参阅下面的示例，显示加载长列表如何影响页面加载时间。请复制以下代码并直接运行以查看加载过程。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(
selectizeInput("a","filter 1",choices = sample(1:100000, 10000),multiple = T),
selectizeInput("b","filter 2",choices = sample(1:100000, 10000),multiple = T),
selectizeInput("c","filter 3",choices = sample(1:100000, 10000),multiple = T),
selectizeInput("d","filter 4",choices = sample(1:100000, 10000),multiple = T),
selectizeInput("e","filter 5",choices = sample(1:100000, 10000),multiple = T),
selectizeInput("f","filter 6",choices = sample(1:100000, 10000),multiple = T)
                ),
dashboardBody()
)

server <- function(input, output) {
}

shinyApp(ui, server)

所以我想更新这些selectizeInput用户单击某些复选框后，例如see more filters。但是，我不知道如何检测它是否已经加载列表。

为了更清楚地解释这一点，请参阅下面的加载多个数据文件的解决方案。

#ui
checkboxInput("loadData", "load more data?", value = FALSE)

#server
#below runs only if checkbox is checked and it hasn't loaded 'newData' yet
#So after it loads, it will not load again 'newData'

if((input$loadData)&(!exists("newData"))){
    newData<<- readRDS("dataSample.rds")
}

不过如果要更新的话choises在选择输入中：

#ui
selectizeInput("filter1","Please select from below list", choices = NULL, multiple = TRUE)

如何找到像我那样检测对象是否存在的条件exists("newData")？我试过is.null(input$filter1$choises)但这是不正确的。

感谢针对这种情况的任何建议。

提前致谢！

最后我从RStudio的帖子中找到了解决方案。http://shiny.rstudio.com/articles/selectize.html http://shiny.rstudio.com/articles/selectize.html

# in ui.R
selectizeInput('foo', choices = NULL, ...)

# in server.R
shinyServer(function(input, output, session) {
updateSelectizeInput(session, 'foo', choices = data, server = TRUE)
})

当我们在输入框中键入内容时，selectize将开始搜索与我们键入的字符串部分匹配的选项。当所有可能的选项都已写在 HTML 页面上时，搜索可以在客户端完成（默认行为）。也可以在服务器端完成，使用R来匹配字符串并返回结果。当选择数量非常大时，这特别有用。例如，当 selectize 输入有 100,000 个选择时，将它们一次性全部写入页面会很慢，但是我们可以从空 selectize 输入开始，只获取我们可能需要的选择，这样可以快得多。下面我们将介绍这两种类型的选择输入。