在 Shiny 中显示 xtable

Question

我想用旋转的列标题显示一个闪亮的数据表。 我在 xtable 包中看到了使用 rotate.colheaders 执行此操作的选项 我无法让表格以闪亮的方式显示（没有所有打印格式），我得到的只是一个显示乳胶生成的文本字符串（见下文）。 我怀疑这是一个相当基本的观点，因为我知道我错过了一些东西 - 我只是不知道是什么！

查看下面的 server.r 代码和输出的最小化示例

server.r 代码：

output$mytable <- renderUI({
    tab <- matrix(rep(1,6),nrow=3)
    rownames(tab) <- c('col1','col2','col3')
    M <- print(xtable(tab, rotate.colnames=TRUE))
})

闪亮应用中的输出：

% latex table generated in R 3.1.1 by xtable 1.7-3 package % Wed Oct 22 13:31:00 2014 \begin{table}[ht] \centering \begin{tabular}{rrr} \hline & 1 & 2 \\ \hline col1 & 1.00 & 1.00 \\ col2 & 1.00 & 1.00 \\ col3 & 1.00 & 1.00 \\ \hline \end{tabular} \end{table}

Answer 1

你应该在 server.r 中使用 renderTable，在 ui.r 中使用 tableOutput

在 server.r 中：

output$mytable <- renderTable({
    tab <- matrix(rep(1,6),nrow=3)
    colnames(tab) <- c('col1','col2')
    tab
    })

在 ui.r 中添加：

tags$head( tags$style( HTML('#mytable table {border-collapse:collapse; } 
                             #mytable table th { transform: rotate(-45deg)}'))),
column(6,tableOutput("mytable"))