如何在R shiny中使用sjPlot报告HTML表格？

Question

为什么我的代码不能成功运行？我如何在shiny中使用sjPlot创建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)

当我运行代码时，日志显示 "警告：if中的参数长度为零"。我不知道代码哪里出了问题。

谢谢。

- leewan

Answer 1

问题在于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)
  })
}

- MrFlick