Question

我想使用一个仅在前面的textInput已经完成时出现的conditionPanel（它的初始值是“”）。正确定义conditionPanel中条件的正确方法是什么。这是一个可重现的代码：

ui <- pageWithSidebar(
headerPanel("TEST"),
sidebarPanel(
textInput('test', "","")),

mainPanel(               
conditionalPanel(condition = "input.test != "" ", #problem is here. I've tried many possibilities (such as input.test > 0) but none have worked
                 helpText("abc"))
)
)

server <- function(input,output){ 
}

runApp(list(ui=ui,server=server))

非常感谢任何建议/建议！

干杯

Answer 1

正如评论中所述，将条件更改为"input.test != ''"或'input.test != ""'，因为它处理引号内引号的问题。

另一个解决方案是将条件更改为"input.test.length > 0"，因为如果查看conditionalPanel（下面）的源代码，只需创建一个div {{1}属性是条件。考虑到它直接使用html，这是一个很好的猜测，使用js作为条件将起作用。

我本来可以阅读文档......来自data-display-if：

?conditionalPanel

R有光泽：有基于textInput的条件的conditionalPanel（如何）

1 个答案: