datagrid: send data aftr sort

dreamRs · Mar 12, 2024 · 61de1ac · 61de1ac
1 parent 8e70168
commit 61de1ac
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/examples/zzz-grid-drag.R b/examples/zzz-grid-drag.R
@@ -27,7 +27,7 @@ server <- function(input, output, session) {
     datagrid(list(
       "Variable 1" = 1:10,
       "Variable 2" = LETTERS[1:10]
-    ), draggable = TRUE)
+    ), draggable = TRUE, data_as_input = TRUE)
   })
 
   output$drag <- renderPrint({

diff --git a/inst/htmlwidgets/datagrid.js b/inst/htmlwidgets/datagrid.js
diff --git a/srcjs/widgets/datagrid.js b/srcjs/widgets/datagrid.js
@@ -198,6 +198,12 @@ HTMLWidgets.widget({
             data: grid.getData(),
             colnames: x.colnames,
           }, {priority: "event"});
+          grid.on("afterSort", function (ev) {
+            Shiny.setInputValue(el.id + "_data:datagridEdit", {
+              data: ev.instance.getData(),
+              colnames: x.colnames,
+            }, {priority: "event"});
+          });
           if (x.validationInput === true) {
             Shiny.setInputValue(
               el.id + "_validation:datagridValidation",