使用RStudio服務器和閃亮的服務器不會呈現閃亮的數據表

Question

我有這個簡單的應用程序，從RStudio服務器/ Shiny Server運行時它不會呈現閃亮的數據表，但在桌面RStudio上使用Shiny運行時效果很好：

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput('table1'),
  plotOutput('plot1')
)

server <- function(input, output) {
  output$table1 <- renderDataTable({
    datatable(mtcars)
  })
  output$plot1 <- renderPlot({
    plot(mtcars$wt, mtcars$mpg)
  })
}

shinyApp(ui = ui, server = server)

當我在RStudio服務器控制台中輸入datatable(mtcars)時，我確實可以在查看器中完美地獲得數據表輸出。 就在我將它作為Shiny應用程序運行時，我遇到了問題。 有什么可能導致這種情況的想法嗎？

packageVersion('DT')
[1] ‘0.1.56’
packageVersion('shiny')
[1] ‘0.13.2’
version
               _                           
platform       x86_64-redhat-linux-gnu     
arch           x86_64                      
os             linux-gnu                   
system         x86_64, linux-gnu           
status                                     
major          3                           
minor          3.0                         
year           2016                        
month          05                          
day            03                          
svn rev        70573                       
language       R                           
version.string R version 3.3.0 (2016-05-03)
nickname       Supposedly Educational

Answer 1

這里缺少一個逗號：

dataTableOutput('table1'),

Answer 2

請注意，Shiny有自己的 renderDataTable，dataTableOutput和dataTable函數。 你可以

1. 嘗試刪除DT庫，因此無論是否調用Shiny或DT函數都不會產生混淆。

2. 嘗試使用DT預先添加每個renderDataTable，dataTableOutput和dataTable函數，這樣可以確保始終使用DT變體。

例如，

DT::renderDataTable