RShiny：启动后如何激活反应式表达式

Question

下面，我举了一个小应用程序示例，该应用程序允许用户从diamonds数据集中选择两个变量。激活textOutput()后，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)