feat(data-viz): add data table

timflutre · Sep 24, 2024 · 0674255 · 0674255
1 parent 25ae632
commit 0674255
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/fun/func_data-viz.R b/src/fun/func_data-viz.R
@@ -22,6 +22,9 @@ data_viz_ui <- function(id) {
     ),
     div(
       plotlyOutput(ns("plot"))
+    ),
+    div(style = "margin-top: 30px;",
+      dataTableOutput(ns("dataTable"))
     )
   )
 }
@@ -86,6 +89,18 @@ data_viz_server <- function(id, plot_data) {
         )
       )
     })
+
+    output$dataTable <- renderDataTable({
+      DT::datatable(plot_data(),
+        filter = "top",
+        style = "bootstrap4",
+        options = list(
+          pageLength = 20,
+          lengthMenu = c(10, 20, 50, 100),
+          sDom = '<"top"f>rt<"bottom"lp><"clear">'
+        )
+      )
+    })
   })
 }