表格输出出现问题

如何解决表格输出出现问题

这是我的数据集

我想用flextable对Shiny中的产品进行过滤，并得到这样的东西：

这是我的代码：

library(shiny)

my_data = data.frame(product = rep(c("auto","boat"),each=2),year = c("2009","2011","2005","2019"),price = c("10 000","20 000","7 000","60 000"),speed = c("220","250","70","140"))


ui <- fluidPage(
  selectInput("product","",choices = my_data$product),tableOutput("tbl")
)

server <- function(input,output,session) {
  output$tbl <- renderTable( {
    out <- subset(my_data,product ==input$product)
    library(flextable)
    flextable(out) # i got error
  })
}

shinyApp(ui,server)

但是我遇到了这个错误：无法将“ flextable”类强制转换为data.frame

我们该如何解决？一些帮助将不胜感激

解决方法

您不能将function onEdit(e) { if (e.range.getSheet().getName() == "A") { function1(); } else if (e.range.getSheet().getName() == "B") { function2(); } else { function3(); } } function function1(){ Logger.log("The sheet name is A"); } function function2(){ Logger.log("The sheet name is B"); } function function3(){ Logger.log("The sheet name is different"); } 与renderTable对象一起使用。参见flextable：

expr：该表达式返回一个R对象，该对象可以与 xtable :: xtable（）。

Here，您可以找到有关如何在闪亮的应用程序中使用?renderTable的教程。

请检查以下内容：

flextable