r - RShiny：如何在启动时激活反应表达式

Question

下面我做了一个应用程序的小例子，它允许用户从diamonds数据集中选择两个变量。textOutput()选定的变量在激活后由 a 返回actionButton()。

selectizeInput()我可以为这两个字段选择默认输入，我这样做了。但是，这些默认输入不会在textOutput()字段中返回，因为它正在等待actionButton()被激活。

我的问题是：如何text1Reactive <- eventReactive()在启动时运行一次响应式表达式，然后每次actionButton()单击时更新它？

ui <- fluidPage(
  selectizeInput("xVar","Select X-variable",colnames(diamonds),selected='carat'),
  selectizeInput("yVar","Select Y-variable",colnames(diamonds),selected='cut'),
  actionButton("go","Update variables"),
  textOutput("text1")
)

server <- function(input, output) {
  text1Reactive <- eventReactive(input$go,{
    paste("X =",input$xVar,". Y =",input$yVar)
  })

  output$text1 <- renderText({
    text1Reactive()
  })
}

shinyApp(ui = ui, server = server)