javascript - R Shiny : conditionalPanel not working if used several widgets

Question

条件面板不会在我 Shiny 的应用程序中显示消息“正在加载...”。当按下所有小部件时，必须出现消息。

sidebarPanel(id="sidebar",
                 textInput("id1", "Write word 1:"),
                 textInput("id2", "Write word 2:"),
                 selectInput("line", "Select:",
                             c("Line1"=1,
                               "Line2"=2,
                               "Line3"=3)),
                 dateRangeInput("dateRange",
                                label = "Select a date range:", start = as.character(Sys.Date()-1), end = as.character(Sys.Date()),
                 actionButton("update", "OK"),
                 p("Press OK to update inputs"),
                 conditionalPanel(condition="input.id1>0 && input.id2>0 &&  input.line>0 && input.dateRange>0 && input.update>0",
                                 tags$div("Loading...",id="loadmessage"))
                 )

我认为条件不对。

Answer 1

在 js 中比较 numeric 和 character 的问题

您只需要将 0 用于数字结果(示例中的 actionButton 和 selectInput)

你需要这样的条件 input.id1>'' && input.id2>'' && input.line>0&& input.dateRange>'' && input.update>0