如何自定義閃亮應用中的dataTableOutput

Question

我想在dataTableOutput的每個頁面中只看到三條記錄。我已將頁面長度設置爲（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))})