#### 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'))