Question

我试图在选定的输入上呈现R闪亮的数据表，但收到错误： -

output$reconOutput <- renderUI({

    reconOutput <- sort(unique(as.vector(my_data$ReconIdName)), decreasing = FALSE)
    reconOutput <- append(reconOutput, "All", after =  0)
    selectizeInput("reconchoose", "Recon:", reconOutput)

  })


  output$statusOutput <- renderUI({

   statusOutput <- sort(unique(as.vector(my_data$Status)), decreasing = FALSE)
   statusOutput <- append(statusOutput, "All", 0)
   selectizeInput("statuschoose", "Status:", statusOutput)

 }) 

output$issuesbyReconName<- renderDataTable(
  data <- reactive({

    req(input$reconchoose)
    req(input$statuschoose)


    if(input$reconchoose == "All") {

      filt1 <- quote(recon != "@?><")


    } else {

      filt1 <- quote(recon == input$reconchoose) 

    }


   if (input$statuschoose == "All") {

   filt2 <- quote(status != "@?><")


   } else {

     filt2 <- quote(status== input$statuschoose)

 }



    raw %>%
      filter_(filt1) %>%
      filter_(filt2)


  })
)

你能指导我吗？

输出$ issuesbyReconName 1：shiny :: runApp 警告：如果：缺少值需要TRUE / FALSE

时出错

是否与代码中产生冲突的列中的任何空值有关？

Answer 1

您也可以分享您的输入端代码吗？它看起来可能是由于某些输入对象没有默认值而导致错误。

尝试为这些对象设置默认值，或者使用

之类的内容启动IF系列

if (is.na(input$reconchoose)) return("") else

动态闪亮输入

1 个答案: