Datatable kann nicht in Shiny gerendert werden

Question

Ich habe eine Frage zum Rendern datatable in glänzend.

Hier ist mein Beispielcode:

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 

Und meine glänzenden Codes sind:

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

Diese Codes geändert werden, wie aus einer anderen SO Beiträge vorgeschlagen. Allerdings, wenn ich glänzend laufen, gibt sie:

ich aus Lösungen laufen und haben keine Ahnung, wie sie damit umgehen. Jede Hilfe wird geschätzt!

Answer 1

Basierend auf Ihren kleinen Info, das funktioniert:

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)