Get selected cells from excel table

This function is used to get the data selected in excel table

get_selected_data(excelObj)

Arguments

excelObj	the json data retuned from excel table

Examples

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