How to remove observeEvent(input$table

[lvdunght]

How I can remove observeEvent(input$table
in the code:
library(excelR)
library(shiny)

shinyApp(

ui = fluidPage(actionButton('get', 'Get table data'),
tableOutput("fetchedData"),
excelOutput("table", height = 175)),

server = function(input, output, session) {

output$table <- renderExcel(excelTable(data = head(iris)))

# Get the table data
observeEvent(input$get,{
  getTableData("table")
})

# Print the table
observeEvent(input$table,{
  output$fetchedData <- renderTable(excel_to_R(input$table))
})

}
)