크로스 탭 출력이 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은 이름이 변경되었습니다.