Soy nuevo en el brillo y el stackoverflow y busco ayuda con un problema en el que actualmente estoy atrapado. Estoy tratando de crear una aplicación brillante que recopile algunas entradas del usuario y cree una visualización basada en las entradas al hacer clic en un botón. Actualmente, eso funciona bien, pero una de las principales preguntas es que, cuando la aplicación se carga por primera vez, debe tener una visualización preparada basada en las entradas predeterminadas.

Estoy pegando un código de muestra, que puede explicar el problema que estoy enfrentando:

UI.R

  #loading shiny
  library(shiny)

  ui<-shinyUI(fluidPage(
    titlePanel("Iris Dataset"),
    sidebarLayout(
      sidebarPanel(
        radioButtons("x", "Select X-axis:",
                     list("Sepal.Length"='a', "Sepal.Width"='b', "Petal.Length"='c', "Petal.Width"='d')),
        radioButtons("y", "Select Y-axis:",
                     list("Sepal.Length"='e', "Sepal.Width"='f', "Petal.Length"='g', "Petal.Width"='h')),
        actionButton("action","Submit")
      ),
      mainPanel(
        plotOutput("distPlot")
      )
    )
  ))

  #SERVER.R
  library(shiny)

  #loading shiny
  server<-shinyServer(function(input, output) {

    observeEvent(input$action,{
    output$distPlot <- renderPlot({if(input$x=='a'){i<-1}

      if(input$x=='b'){i<-2}

      if(input$x=='c'){i<-3}

      if(input$x=='d'){i<-4}

      if(input$y=='e'){j<-1}

      if(input$y=='f'){j<-2}

      if(input$y=='g'){j<-3}

      if(input$y=='h'){j<-4}

      s    <- iris[, i]
      k    <- iris[, j]
      plot(s,k)
    })
  })
  })


  shinyApp(ui<-ui, server<-server)

Ahora, si ejecuta esta aplicación, verá que las entradas se seleccionan en la primera pantalla después de la carga (que es la deseada) pero la visualización aparece solo después de hacer clic en el botón "Enviar", esto se debe al evento del observador.En la aplicación real, se realizan cálculos después de capturar las entradas con solo hacer clic en el botón. Por lo tanto, el cálculo se dispara solo cuando se hace clic en actionButton

¿Hay alguna manera? Todavía podemos mantener el botón "Enviar" y su evento de observación, pero activamos automáticamente la visualización o la acción realizada dentro del evento de observación al inicio, es decir, cuando la aplicación se carga por primera vez.