我的UI中有一个conditionalPanel需要检查某个计算是否可行,如果是,则显示输出,如果没有,则显示解释。
这是一个简化的例子:
shinyApp(
ui = fluidPage(
textOutput("ispossible"),
conditionalPanel('output.ispossible === "FALSE"',
h4('The calculation is NOT possible')),
conditionalPanel('output.ispossible === "TRUE"',
h4('The calculation IS possible'))
),
server = function(input, output) {
output$ispossible <- reactive({
sample(c("TRUE","FALSE"),1) # randomly returns "TRUE" or "FALSE"
})
}
)
在此代码中,如果您将return("FALSE")
更改为return("TRUE")
,则conditionalPanel会根据需要进行更改。 然而,这只是因为textOutput
首先渲染了输出。删除textOutput
,它不起作用。如何强制output$ispossible
更新而不显示它 - 或者如何隐藏输出?