クロス集計出力は、ビューアーペインにのみ表示され、Shinyアプリケーションでは表示されません。

Question

クロステーブル出力（不測事態テーブル）を生成しています。私の要件は、行と列の合計と共に列のパーセンテージを持つことです。私はこのパッケージを見つけました"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) 

これにより、ビューアペインに必要な出力が生成されます。この出力をアプリに表示するにはどうすればよいですか？実際のプログラムで変数が動的に選択されているので、この出力を画像として保存することはできません。したがって、テーブル出力が変更されます。

Answer 1

sjt.xtabは、ビューアに表示されるテーブルを生成するために使用されるhtmlとcssを含むリストを表示しません。

ui側にはhtmlOutputを、サーバー側にはrenderUIを使用して表示することができます。あなたのui.Rで

、あなたが使用することができます。

htmlOutput("crosstab2") 

をごserver.Rで：

output$crosstab2 <- renderUI({ 
    custom_table <- sjt.xtab(mtcars$mpg, mtcars$cyl,variableLabels = c("mpg","cyl"),showColPerc = T, 
          showSummary = F,showNA=F,highlightTotal = T,tdcol.col = "#f90477", highlightColor ="#3aaee0", 
          CSS = list(css.table = "border: 1px solid;", 
             css.tdata = "border: 1px solid;")) 
    HTML(custom_table$knitr) 
    }) 

はここ（の一部）私のsessionInfo()

R version 3.1.2 (2014-10-31) 
Platform: x86_64-apple-darwin13.4.0 (64-bit) 

locale: 
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] sjPlot_1.9.2 shiny_0.13.1 

私たちがいない容疑者同じバージョンのsjPlotを引数として持つあなたの例で使用しているsjt.xtabが名前を変更しました。