Example of using DT::datatable() to display facial detection results stored within values$img_res

shiny-vision-datatable-ex-server.R

#### Within ui.R or renderUI() ####
 DT::dataTableOutput("results")

#### Within server.R ####
 output$results <- DT::renderDataTable({
    if (values$analysis_type == "FACE_DETECTION") {
      as.data.frame(
        list(
          joy = values$img_res$joyLikelihood, 
          sorrow = values$img_res$sorrowLikelihood,
          anger = values$img_res$angerLikelihood, 
          surprise = values$img_res$surpriseLikelihood
        )
      )
    }
 }, options = list(scrollX = TRUE, searching = TRUE, 
 scrollY = "600px", scrollCollapse = TRUE, dom = 'ft'))