Question

条件满足时遇到问题，我想从网站隐藏selectizeInput。但是，我无法做到。由于反应性的性质。我不得不在server.R文件中放入以下代码。

output$Super <- if(is.null(session$user)){
   renderUI({  

        selectizeInput("Salesperson"
                 , "Salesperson:"
                 , sort(getUsers())
                 , selected = 'All'
                 , NULL
                 , multiple =FALSE)
})
}else if(session$user == 'tester'){
 renderUI({
  selectizeInput("Salesperson"
                 , "Salesperson:"
                 , sort(getUsers())
                 , selected = 'All'
                 , NULL
                 , multiple =FALSE)
})

} else {
   renderUI({
      selectizeInput("Salesperson"
               , "Salesperson:"
               , session$user
               , selected = session$user
               , NULL
               , multiple =FALSE)
})
  }

ui.R中的以下行

 conditionalPanel(
    condition ="input.Salesperson == 'All",
    uiOutput('Super')
  )

但是，如果它落在else语句中，我不想渲染它。但是，我无法做到。如果我从else中删除renderUI代码。它崩溃了。

我做错了什么？

Answer 1

如果您不想/不能使用条件面板，则可以使用hide() + show()（或toggle()）函数{{1> 1}}包

如果光泽不满足条件，如何隐藏selectizeInput

1 个答案: