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 

そして、私の光沢のあるコードは次のとおりです。他のいくつかのSOの記事から提案されているよう

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

これらのコードは変更されています。私は光沢のある実行したときしかし、それが返されます。

私は解決策が不足し、それに対処する方法は考えています。どんな助けもありがとう！あなたの小さな情報に基づいて

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)