Update shiny vignette

eoda-dev · Sep 17, 2024 · 8607cf6 · 8607cf6
1 parent d5370e7
commit 8607cf6
Show file tree

Hide file tree

Showing 3 changed files with 29 additions and 4 deletions.
diff --git a/examples/shiny/titanic/app.R b/examples/shiny/titanic/app.R
@@ -18,6 +18,9 @@ ui <- fluidPage(
 server <- function(input, output) {
   output$titanic <- renderTabulator({
     tabulator(data, setup, editable = TRUE) |>
+      set_header_filter("Pclass", "list") |>
+      set_header_filter("Survived", "list") |>
+      set_header_filter("Fare", "number", "<=", clearable = TRUE) |>
       set_options_pagination() |>
       set_formatter_money(
         "Fare",
@@ -47,6 +50,11 @@ server <- function(input, output) {
     print(input$titanic_cell_edited)
   })
 
+  observeEvent(input$titanic_data_filtered, {
+    print("data_filtered")
+    print(head(input$titanic_data_filtered))
+  })
+
   observeEvent(input$submit, {
     print("Trigger get data")
     tabulatorContext(OUTPUT_ID) |>

diff --git a/inst/htmlwidgets/rtabulator.js b/inst/htmlwidgets/rtabulator.js
@@ -29,10 +29,10 @@
       Shiny.onInputChange(inputName, cell.getData());
     });
     table.on("dataFiltered", function(filters, rows) {
-      const inputName = `${el.id}_data_filtered`;
+      const inputName = `${el.id}_data_filtered:rtabulator.data`;
       const data = rows.map((row) => row.getData());
       console.log(inputName, data);
-      Shiny.onInputChange(inputName, data);
+      Shiny.onInputChange(inputName, { data: convertToDataFrame(data) });
     });
   }
 

diff --git a/vignettes/articles/shiny.Rmd b/vignettes/articles/shiny.Rmd
@@ -44,6 +44,11 @@ shinyApp(ui = ui, server = server)
 - `trigger_download()`
 - `trigger_get_data()`
 - `trigger_get_sheet_data()`
+- `undo()`
+- `redo()`
+- `add_row()`
+- `delete_row()`
+- `delete_selected_rows()`
 
 **Events**
 
@@ -54,7 +59,7 @@ shinyApp(ui = ui, server = server)
 - `{OUTPUT_ID}_get_data`
 - `{OUTPUT_ID}_get_sheet_data`
 
-Use `tabulatorContext()` to trigger events. 
+Use `tabulatorContext()` in conjunction with the trigger functions: 
 
 ```{r, eval=FALSE}
 library(shiny)
@@ -77,10 +82,16 @@ ui <- fluidPage(
 server <- function(input, output) {
   output$titanic <- renderTabulator({
     tabulator(data, setup, editable = TRUE) |>
+      set_header_filter("Pclass", "list") |>
+      set_header_filter("Survived", "list") |>
+      set_header_filter("Fare", "number", "<=", clearable = TRUE) |>
       set_options_pagination() |>
       set_formatter_money(
         "Fare",
-        symbol = "\U00A3", symbol_after = FALSE, precision = 1, hoz_align = "right"
+        symbol = "\U00A3",
+        symbol_after = FALSE,
+        precision = 1,
+        hoz_align = "right"
       ) |>
       set_tooltip("Fare") |>
       set_formatter_tick_cross("Survived") |>
@@ -93,6 +104,7 @@ server <- function(input, output) {
   })
 
   observeEvent(input$titanic_row_clicked, {
+    print("row_clicked")
     print(input$titanic_row_clicked)
   })
 
@@ -106,6 +118,11 @@ server <- function(input, output) {
     print(input$titanic_cell_edited)
   })
 
+  observeEvent(input$titanic_data_filtered, {
+    print("data_filtered")
+    print(head(input$titanic_data_filtered))
+  })
+
   observeEvent(input$submit, {
     print("Trigger get data")
     tabulatorContext(OUTPUT_ID) |>