Question

有条件的pannel在我的闪亮应用中没有显示消息“正在加载...”。必须在按下所有小部件后显示消息。

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

R Shiny：如果使用了几个小部件，conditionalPanel无法正常工作

1 个答案: