R shiny：如何基于textInput进行操作

Question

我想检查textInput是否已完成，然后根据此操作运行。出于某种原因，以下简化代码不起作用。有什么不对吗？

library(shiny)

ui <- pageWithSidebar(
headerPanel("TEST"),
sidebarPanel(

textInput('C1', "","C1")
),

mainPanel(uiOutput("value"))

)

server <- function(input,output){

output$value <- renderUI({
#input$C1

if (is.null(input$C1)){
value <- 0}
else{
value <- 1
}
})

}

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

任何建议都非常感谢。

干杯

Answer 1

renderUI中的代码必须返回“tags”对象，即有效的html。您的代码返回0或1，这两个都不是该上下文中的有效返回值。 您只需要将返回值包含在创建此类代码的内容中，例如，而不是

 value<-0

试

 h4("0") 

一切都会好的。