title: r Shiny action button and data table output
body: <p>I would like an output data table after selection of some simple criteria, once an action button is clicked.</p>
  
  <p>The code works without the action button as an input. As soon as I include the <code>observeEvent</code> function, the result is no longer generated. See example code below.</p>
  
  <p>Note: Removing the line <code>observeEvent(input$gobutton,{</code> and the corresponding <code>})</code> will produce the correct output.</p>
  
  <pre><code>library(shiny)
  
  ui &lt;- fluidPage(
    fluidRow(column(6,div(checkboxGroupInput("test1", "Testing buttons", 
                                             choices=c("A","B","C"),
                                             selected=c("A","B","C"))))),
  
    hr(),
  
    actionButton("gobutton","Start"),
  
    dataTableOutput("summary_table")
  
  )
  
  server &lt;- function(input,output){
  
    output$summary_table &lt;- renderDataTable({
  
      observeEvent(input$gobutton,{
  
      df=data.frame(col1=input$test1,col2=seq(1,length(input$test1),1))
  
      df
      })
    })
  }
  
  shinyApp(ui=ui, server=server)
  </code></pre>