R闪亮：如何基于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") 

一切都会好起来的。