r - Shiny Dashboard で datatable がレンダリングされない

Question

データテーブルは Shinydashboard でレンダリングされません。ボックスの薄い白いストリップをレンダリングするだけです。RStudio でデータテーブル関数のみを実行すると、データテーブルが RStudio ビューアーに表示されます。それでは、光沢のあるアプリで DT データテーブルをレンダリングする正しい方法は何でしょうか?

## app.R ##
library(shiny)
library(shinydashboard)
library(htmlwidgets)
library(DT)
library(xtable)
source('../ts01/db.R')

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(
      box(tableOutput("table1"))
    )
  )
)

server <- function(input, output) {
  output$table1 <- DT::renderDataTable({
    datatable(amount_data)
  })  
}

shinyApp(ui, server)