Estoy generando una salida de tabla cruzada (tabla de contingencia). Mi requisito es tener porcentajes de columna junto con totales de fila y columna. Encontré este paquete"sjPlot" lo que da muy buena salida con características de color y cumplía con mis requisitos. Usé este paquete para generar la salida en Shiny. Pero para mi sorpresa, la salida se genera solo en el panel del visor y no en la aplicación. A continuación se muestra una pequeña parte de mi código.

library("shiny")
library("sjPlot")

ui <- shinyUI(fluidPage(
  tabPanel("First Page"),
  mainPanel(tabsetPanel(id='mytabs',
                        tabPanel("Table",tags$b(tags$br("Table Summary" )),tags$br(),dataTableOutput("crosstab2"))
                        )
            )
  ))


server <- shinyServer(function(input, output,session){
  updateTabsetPanel(session = session
                    ,inputId = 'myTabs')

  output$crosstab2 <- renderDataTable({
      with(mtcars,sjt.xtab(mpg, cyl,
                        var.labels = c("mpg","cyl"),
                        show.col.prc = T,
                        show.summary = F,
                        show.na = F,
                        wrap.labels = 50,
                        tdcol.col = "#f90477",
                        emph.total = T,
                        emph.color = "#3aaee0",
                        #use.viewer = T ##when this is false it generates a html output. Can we capture the html output and display in Shiny?
                        CSS = list(css.table = "border: 1px solid;",
                                   css.tdata = "border: 1px solid;")))      
    })

    print("created crosstab1")    
})

shinyApp(ui = ui, server = server)

Esto genera la salida necesaria en el panel del visor. ¿Cómo puedo mostrar esta salida en la aplicación? No puedo guardar esta salida como una imagen ya que en mi programa real las variables se seleccionan dinámicamente y la salida de la tabla cambia en consecuencia.