another update

R/server.R

@@ -579,36 +579,16 @@ sd_server <- function(
     # Update checkpoint 4 - when window is closed
     shiny::observeEvent(input$window_closing, {
         shiny::isolate({
-            # Force a synchronous database write
-            tryCatch({
-                if (!is.null(db)) {
-                    # Get the current data
-                    data_list <- latest_data()
-                    data_list[['time_end']] <- get_utc_timestamp()
-
-                    # Direct database write using poolWithTransaction
-                    pool::poolWithTransaction(db$db, function(conn) {
-                        # Update the data
-                        database_uploading(data_list, conn, db$table, names(data_list))
-                        # Explicitly commit
-                        DBI::dbCommit(conn)
-                    })
-
-                    # Force pool closing
-                    pool::poolClose(db$db)
-                }
-            }, error = function(e) {
-                warning("Error during forced data save: ", e$message)
-            })
+            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)
-        })
-    })
+    # shiny::onSessionEnded(function() {
+    #     shiny::isolate({
+    #         update_data(time_last = TRUE)
+    #     })
+    # })
 }
 
 #' Define skip conditions for survey pages

inst/js/window_close.js

@@ -1,5 +1,14 @@
 $(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) {} // Block for 200ms
+
+    // Standard beforeunload dialog
+    e.preventDefault();
+    e.returnValue = '';
   });
 });