Estou gerando uma saída entre tabelas (tabela de contingência). Meu requisito é ter porcentagens de coluna junto com totais de linhas e colunas. Encontrei este pacote"sjPlot" que fornece uma saída muito boa com recursos de cores e estava atendendo às minhas necessidades. Eu usei este pacote para gerar a saída no Shiny. Mas, para minha surpresa, a saída está sendo gerada apenas no painel do visualizador e não no aplicativo. Abaixo está uma pequena parte do meu 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)

Isso gera a saída necessária no painel do visualizador. Como posso obter essa saída exibida no aplicativo. Não consigo salvar essa saída como uma imagem, pois no meu programa real as variáveis são selecionadas dinamicamente e a saída da tabela é alterada de acordo.