update_data better functioning

R/server.R

@@ -576,7 +576,14 @@ sd_server <- function(
         session$sendCustomMessage("closeWindow", list())
     })
 
-    # Update checkpoint 4 - when session is ended
+    # Update checkpoint 4 - when window is closed
+    shiny::observeEvent(input$window_closing, {
+        shiny::isolate({
+            update_data(time_last = TRUE)
+        })
+    }, ignoreInit = TRUE)
+
+    # Update checkpoint 5 - when session is ended (backup)
     shiny::onSessionEnded(function() {
         shiny::isolate({
             update_data(time_last = TRUE)

R/ui.R

@@ -91,6 +91,7 @@ sd_ui <- function() {
         "countdown.js",
         "enter_key.js",
         "keep_alive.js",
+        "window_close.js",
         "surveydown.css"
       ),
       if (any(theme == "default")) {

inst/js/window_close.js

@@ -0,0 +1,10 @@
+$(document).ready(function() {
+  window.addEventListener('beforeunload', function(e) {
+    // Send message to Shiny
+    Shiny.setInputValue('window_closing', true, {priority: 'event'});
+
+    // Small delay to allow data to save
+    var start = Date.now();
+    while(Date.now() - start < 200) {}
+  });
+});