我似乎对d()的调用没有返回任何内容,并且当应用程序启动并在renderText中执行代码时它会持续存在。为什么这样?
library(shiny)
ui <- fluidPage(
actionButton("but","Click"),
textOutput("ui_out")
)
server <- function(input,output) {
d <- eventReactive(input$but, {
100
})
output$ui_out <- renderText({
print("in")
d()
print("out")
})
}
shinyApp(ui=ui,server=server)