Fatal编程技术网
  • r/
  • 如何使用sjPlot在R中报告html表？

如何使用sjPlot在R中报告html表？

r shiny

如何使用sjPlot在R中报告html表？,r,shiny,R,Shiny,为什么我的代码不能成功运行？如何使用sjPlot在shiny中创建html表 library(shiny) library(sjPlot) ui <- fluidPage( sidebarLayout( sidebarPanel(), mainPanel(htmlOutput("a")) ) ) server <- function(input, output){ output$a <- renderU

为什么我的代码不能成功运行？如何使用sjPlot在shiny中创建html表

library(shiny)
library(sjPlot)

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(),
        mainPanel(htmlOutput("a"))
    )
)

server <- function(input, output){
  output$a <- renderUI({
    tab_df(iris,title="title",col.header='N',footnote='footnote')
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

库（闪亮）
图书馆（sjPlot）

ui问题在于
tab_df
似乎将其HTML写入文件，而不是返回您想要使用的HTML。看看
sjPlot:：：print.sjTable
，我们似乎可以用


server <- function(input, output){
  output$a <- renderUI({
    HTML(tab_df(iris,title="title",col.header='N',footnote='footnote')$knitr)
  })
}



服务器