有人能帮我纠正这个错误吗?我不知道这里出了什么问题。
我收到错误消息“Error:在密码字段中插入密码时,无法将“closure”类型强制转换为“character '”类型的向量。
用户界面
fluidRow(
column(10),
column(2,
tagList(
passwordInput("password", "Password:"),
uiOutput("analyseTab")
)
)
)
服务器
output$analyseTab <- renderUI({
if(input$password == "shiny"){
showTab("TabBox01","Tab_Analyse")
}
else{
hideTab(inputId = "TabBox01", target = "Tab_Analyse")
}})
谢谢大家!
1条答案
按热度按时间gpnt7bae1#
出现此错误是因为output / renderUI使用不当。
我认为在这种情况下,您需要的是ObserveEvent,而不是UI输出。