R Shiny : conditionalPanel with condition based on textInput (how to)

Question

我想使用一个只有在前面的 textInput 已经完成时才会出现的条件面板(它的初始值为“”)。在 conditionalPanel 中正确定义条件的正确方法是什么。这是一个可重现的代码:

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，其中 data-display-if 属性是条件。考虑到它直接进入 html，可以很好地猜测使用 js 作为条件是可行的。

我本可以阅读文档...来自 ?conditionalPanel:

condition: A JavaScript expression that will be evaluated repeatedly to
          determine whether the panel should be displayed.

conditionalPanel
function (condition, ...) 
{
    div(`data-display-if` = condition, ...)
}