闪亮的显示矩阵作为表从UI

Question

我想将矩阵显示为表而不必进行服务器调用。我怀疑我需要类似下面的内容

ui.r

x <- diag(4)

h4(x), ## fails
h4(xtable(x)), ## fails

Answer 1

我不确定这是否容易实现。据我所知，您必须为表格创建正确的HTML，例如使用htmlTable package。

下面给出一个例子，希望这有帮助！

library(shiny)
library(htmlTable)

df = data.frame(a=LETTERS[1:6],b=letters[1:3])

ui <- fluidPage(
  HTML(htmlTable(table(df$a,df$b)))
)

server <- function(input,output, session)
{
}

shinyApp(ui,server)