shiny - 光沢のあるアプリで dataTableOutput をカスタマイズする方法

Question

dataTableOutput の各ページに 3 つのレコードのみを表示したいと考えています。ページの長さを ( pageLength = 3) に設定しましたが、テーブルに 3 行が表示されません。コードは次のとおりです。

server.r :

# display table
  output$responses <- DT::renderDataTable({
    (options = list(pageLength = 3))
    #update after submit is clicked
    input$submit
    #update after delete is clicked
    input$delete
    ReadData()
  }

ui.r:

 box(
      title = "KPIs", status = "primary", solidHeader = TRUE,
      collapsible = TRUE,
     DT::dataTableOutput("responses"), tags$hr()

    ))

Answer 1

試す

output$responses <- DT::renderDataTable({
    #update after submit is clicked
    input$submit
    #update after delete is clicked
    input$delete
    DT::datatable(ReadData(), options = list(pageLength=3))})