R 无法在中呈现数据表

我对在shiny中呈现数据表有疑问

以下是我的示例代码：

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"))

##忽略其他一些代码
##在server.R中
图书馆（闪亮）
图书馆（DT）
根据您的小信息输出$matrix，这是有效的：

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)

pm仍然不工作：（我可以更新的任何其他信息？@BigD:Oops，缺少一个
}
。更新包？提供一个可复制的示例，而不是一个树桩？