Question

我有一个shiny应用，看起来像这样

ui.R

shinyUI(fluidPage(

            titlePanel("Test Application"),

            sidebarLayout(
                    sidebarPanel(

                            selectizeInput("N",
                                    label = ("N"),
                                    multiple = TRUE,
                                    choices = NULL,
                                    options = list(
                                            placeholder = 'Select All Desired, Type to Search',
                                            onInitialize = I('function() { this.setValue(""); }')
                                    )),

                            selectizeInput("M", 
                                    label = "M",
                                    multiple = TRUE,
                                    choices = NULL,
                                    options = list(
                                            placeholder = 'Select All Desired, Type to Search',
                                            onInitialize = I('function() { this.setValue(""); }')
                                    ))
                    ),

                    mainPanel(
                            tabsetPanel(
                                    tabPanel("Test Plot 1",
                                            plotOutput("testPlot1"))                                        
                    )
            ))))

server.R

library(data.table)
library(ggplot2)
options("stringsAsFactors" = FALSE, datatable.verbose=TRUE, datatable.auto.index=TRUE)

testDT <- data.table(
        L = (1:32), 
        M = rep(letters[23:26], each = 64), 
        N = rep(LETTERS[1:4], times = 20, each = 512),
        O = rnorm(2048, 1))

testDT$L                <- factor(testDT$L,         levels = seq(from = 1, to = 32, by = 1))

shinyServer(function(input, output, session) {

        updateSelectizeInput(session, "N", 
                server = TRUE, 
                choices = sort(unique(testDT$N)),
        )

        updateSelectizeInput(session, "M", 
                server = TRUE, 
                choices = unique(testDT$M),
        )       

        testDT1 <- reactive({
                    if (input$N == 0 & input$M == 0){
                        testDT
                    } else if(input$N != 0 & input$M == 0) {
                        testDT[eval(call("%in%", as.name("N"), input$N))]   
                    } else if(input$M != 0 & input$N == 0) {
                        testDT[eval(call("%in%", as.name("M"), input$M))]
                    } else {
                        testDT[eval(call("%in%", as.name("N"), input$N)) & 
                                        eval(call("%in%", as.name("M"), input$M))]                          
                    }
                })

        output$testTable <- renderDataTable(testDT1())

        output$testPlot1 <- renderPlot({

                    p <- ggplot(testDT1(), aes(L,O)) +
                            geom_boxplot(aes(fill = N)) +  
                            theme_bw() +
                            theme(legend.position = "top", legend.title=element_blank()) + 
                            facet_grid(M ~ ., scales = "free") +
                            labs(x = "L", y = "O")
                    print(p)
                })
    })

当我打开应用时，N和M都有空集。我希望找到一种方法，每个selectizeInput框将在打开时选择所有选项（AKA无子集数据集），但仍然显示空占位符。

我创建了这个函数，当有一个或两个selectizeInput框中没有任何内容输入时，有条件地显示所有内容：

        testDT1 <- reactive({
                    if (input$N == 0 & input$M == 0){
                        testDT
                    } else if(input$N != 0 & input$M == 0) {
                        testDT[eval(call("%in%", as.name("N"), input$N))]   
                    } else if(input$M != 0 & input$N == 0) {
                        testDT[eval(call("%in%", as.name("M"), input$M))]
                    } else {
                        testDT[eval(call("%in%", as.name("N"), input$N)) & 
                                        eval(call("%in%", as.name("M"), input$M))]                          
                    }
                })

不幸的是，似乎input$N == 0不是input$N的空集。我已经尝试了0，NA和""，但这些都没有。

所以问题是：input$N框中没有选择任何内容时selectizeInput的输出是什么？

提前致谢！

编辑：感谢@Romain，我修改了函数来生成这个：

        testDT1 <- reactive({
                    if (is.null(input$N) & is.null(input$M)){
                        testDT
                    } else if(!is.null(input$N) & is.null(input$M)) {
                        testDT[eval(call("%in%", as.name("N"), input$N))]   
                    } else if(is.null(input$N) & !is.null(input$M)) {
                        testDT[eval(call("%in%", as.name("M"), input$M))]
                    } else {
                        testDT[eval(call("%in%", as.name("N"), input$N)) & 
                                        eval(call("%in%", as.name("M"), input$M))]                          
                    }
                })

完美无缺

Answer 1

如果未选择任何内容，则输入为NULL。

如果要检查是否选择了任何内容，请使用is.null（）。

在selectizeInput中未选择任何值时，闪亮输入$ ____值

1 个答案: