无法在Shiny中呈现数据表

Question

我对有问题地渲染datatable有疑问。

以下是我的示例代码：

head(pm)
  product previous current      rate
1       a        0       2   2.00000
2       b       12      28 133.33333
3       c       22      76 245.45455
4       d       26      52 100.00000
5       e       18      24  33.33333
6       f       32      92 187.50000

我闪亮的代码是：

##ignoring some other codes
## in server.R
library(shiny)
library(DT)
output$matrix <- renderDataTable(DT::datatable(pm, options = list(searching = TRUE,
                                                                               pageLength = 10,
                                                                               lengthMenu = c(10, 50, 100))))
## in ui.R, ignoring main page stuff
tabPanel("matrix testing",
                 DT::dataTableOutput("matrix"))

这些代码会根据其他一些SO帖子的建议进行修改。但是当我运行闪亮时，它会返回：

我没有解决方案，也不知道如何处理它。任何帮助将不胜感激！

Answer 1

根据您的小信息，这有效：

pm <- read.table(header=T,text="
  product previous current      rate
1       a        0       2   2.00000
2       b       12      28 133.33333
3       c       22      76 245.45455
4       d       26      52 100.00000
5       e       18      24  33.33333
6       f       32      92 187.50000")
library(shiny)
library(DT)
server <- function(input, output, session) {
output$matrix <- renderDataTable(DT::datatable(pm, options = list(searching = TRUE,
                                                                               pageLength = 10,
                                                                               lengthMenu = c(10, 50, 100))))
}
ui <- fluidPage(
  tabsetPanel(
tabPanel("matrix testing", dataTableOutput("matrix"))))
shinyApp(ui, server)