闪亮显示xtable

Question

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

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

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"))