Save updated status in DOM

openpharma · Dec 5, 2024 · 546b4e4 · 546b4e4
1 parent a746b2e
commit 546b4e4
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/shiny.R b/R/shiny.R
@@ -12,6 +12,7 @@ checkbox_callback <- DT::JS(
   "var rowIdx = table.row($(this).closest('tr')).index();",
   "var ids = cell.data().ids;",
   "var review = $(this).is(':indeterminate') ? null : $(this).is(':checked');",
+  "cell.data().updated = review;",
   "var info = {review: review, ids: ids, row: tblId + '_row_' + rowIdx};",
   "Shiny.setInputValue(tblId + '_review_selection:CS.reviewInfo', info);",
   "})"
@@ -20,9 +21,10 @@ checkbox_callback <- DT::JS(
 checkbox_render <- DT::JS(
   "function(data, type, row, meta) {",
   "var reviewed = data.reviewed;",
+  "var updated = data.updated;",
   "return `<input type='checkbox' ",
     "class='${reviewed == null ? 'indeterminate' : reviewed ? 'checked' : 'unchecked'}' ",
-    "${reviewed ? 'checked' : ''} ",
+    "${updated == null ? (reviewed ? 'checked' : '') : (updated ? 'checked' : '')} ",
     "${reviewed == null ? 'onclick=\"ts(this)\"' : ''}/>`;",
   "}"
 )