Я генерирую кросс-таблицу выходных данных (таблица сопряженности). Мое требование состоит в том, чтобы иметь проценты столбца вместе с итоговой строкой и столбцом. Я нашел этот пакет"SjPlot" который дает очень хорошие результаты с цветными характеристиками и отвечает моим требованиям. Я использовал этот пакет для генерации вывода в Shiny. Но, к моему удивлению, вывод генерируется только на панели просмотра, а не в приложении. Ниже приведена небольшая часть моего кода.

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)

Это создает необходимый вывод в панели просмотра. Как я могу получить этот вывод отображается в приложении. Я не могу сохранить этот вывод как изображение, так как в моей реальной программе переменные выбираются динамически, и соответственно вывод таблицы.