excel_to_R(excelObj)

if(interactive()){
 library(shiny)
 library(excelR)
 shinyApp(
   ui = fluidPage(excelOutput("table")),
   server = function(input, output, session) {
     output$table <-
       renderExcel(excelTable(data = head(iris)))
     observeEvent(input$table,{
       print(excel_to_R(input$table))
     })
   }
 )
}