Address spurious sqlite warnings about synchronous

Author: michaelhallquist

NEWS.md

@@ -1,3 +1,7 @@
+# BrainGnomes 0.8-2
+
+* Update RSQLite connections to default to `synchronous=NULL` to prevent spurious warnings
+
 # BrainGnomes 0.8-1
 
 Released 2026-03-05
@@ -10,6 +14,7 @@ Released 2026-03-05
 * Harden prefetch caching and validation checks so that later failures invalidate skip logic
 * Make prefetch state query-specific so that an exact snapshot of templateflow files is retained
 * Move prefetch state files out of `templateflow_home` and into hashed project log paths; legacy state files in `templateflow_home` are now migrated and removed to avoid poisoning TemplateFlow standard-space discovery.
+* Expand TemplateFlow default to desc=None for T1w to mirror some versions of fmriprep.
 * Harden check on flywheel location to accommodate missing fw command.
 
 # BrainGnomes 0.8

R/job_tracking_functions.R

@@ -66,7 +66,7 @@ submit_tracking_query = function(str, sqlite_db, param = NULL) {
 
   # check if tracking table exists in sqlite_db; if not, create it
   table_exists <- tryCatch({
-    con <- dbConnect(RSQLite::SQLite(), sqlite_db) # establish connection
+    con <- dbConnect(RSQLite::SQLite(), sqlite_db, synchronous = NULL) # establish connection
     on.exit(try(dbDisconnect(con), silent = TRUE), add = TRUE)
     sqliteSetBusyHandler(con, 10 * 1000) # busy_timeout of 10 seconds
     dbExistsTable(con, "job_tracking")
@@ -99,7 +99,7 @@ submit_tracking_query = function(str, sqlite_db, param = NULL) {
 
 ensure_tracking_db_schema <- function(sqlite_db) {
   con <- tryCatch({
-    dbConnect(RSQLite::SQLite(), sqlite_db)
+    dbConnect(RSQLite::SQLite(), sqlite_db, synchronous = NULL)
   }, error = function(e) {
     stop(format_tracking_db_error(sqlite_db, operation = "ensure_tracking_db_schema connect", err = e), call. = FALSE)
   })
@@ -479,7 +479,7 @@ get_tracked_job_status <- function(job_id = NULL, return_children = FALSE, retur
   }
 
   con <- tryCatch({
-    dbConnect(RSQLite::SQLite(), sqlite_db)
+    dbConnect(RSQLite::SQLite(), sqlite_db, synchronous = NULL)
   }, error = function(e) {
     stop(format_tracking_db_error(sqlite_db, operation = "get_tracked_job_status connect", err = e), call. = FALSE)
   })

R/sqlite_functions.R

@@ -210,7 +210,7 @@ submit_sqlite_query <- function(str = NULL, sqlite_db = NULL, param = NULL,
   checkmate::assert_logical(return_result)
   if(is.null(str) | is.null(sqlite_db)) return(invisible(NULL))
 
-  con <- dbConnect(RSQLite::SQLite(), sqlite_db) # establish connection
+  con <- dbConnect(RSQLite::SQLite(), sqlite_db, synchronous = NULL) # establish connection
   sqliteSetBusyHandler(con, busy_timeout * 1000) # busy_timeout arg in seconds * 1000 ms
 
   if (isTRUE(return_result)) {
@@ -257,7 +257,7 @@ sqlite_table_exists <- function(sqlite_db, table_name) {
   }
 
   # Connect to database
-  con <- DBI::dbConnect(RSQLite::SQLite(), sqlite_db)
+  con <- DBI::dbConnect(RSQLite::SQLite(), sqlite_db, synchronous = NULL)
   on.exit(DBI::dbDisconnect(con), add = TRUE)
 
   # Check if table exists