for mariadb, use jq for simplifying when user requests nested fields

Author: rfhb

R/query.R

@@ -1492,7 +1492,8 @@ docdb_query.src_mariadb <- function(src, key, query, ...) {
       fldQ$selectFields[i] <- paste0(
         '(CASE WHEN JSON_EXISTS(`/** key **/`.json, \'$."',
         gsub('[.]', '[0].', fldQ$selectFields[i]), '"\') ',
-        'THEN JSON_EXTRACT(`/** key **/`.json, \'$."', gsub('"[.]"', '"**."', fldQ$selectFields[i]), '"\') ',
+        'THEN JSON_EXTRACT(`/** key **/`.json, \'$."',
+        gsub('"[.]"', '"**."', fldQ$selectFields[i]), '"\') ',
         "ELSE 'null' END) ")
 
     }
@@ -1550,19 +1551,21 @@ docdb_query.src_mariadb <- function(src, key, query, ...) {
 
   # - - - - - - - - -
 
-  # TODO if query concerns only _id and excludeField
-  # id empty, then could do query only as SQL
-
   # - if query needs jqr, which for src_mariadb is
   #   whenever there is a query specified by the
   #   user, at any level of depth in the json structure,
   #   since queries cannot sufficiently be translated
   #   with SQ and JSON functions in MariaDB 12.
   fldQ$jqrWhere <- character(0L)
   if (length(fldQ$queryCondition)) fldQ$jqrWhere <- fldQ$queryJq
-  # special case: if no query and only includeFields, no need for jq
+  #
+  # special case: if no query and only root includeFields, no need for jq
   if (!length(fldQ$queryCondition) &&
-      !length(fldQ$excludeFields)) fldQ$includeFields <- character(0L)
+      !length(fldQ$excludeFields) &&
+      length(fldQ$includeFields) &&
+      !grepl(".", fldQ$includeFields, fixed = TRUE)) fldQ$includeFields <-
+    character(0L)
+  #
   # special case: jq needed, _id not in excludeFields,
   # thus _id needs to be in includeFields
   if (length(fldQ$queryCondition) &&

README.Rmd

@@ -336,11 +336,11 @@ result <- rbenchmark::benchmark(
 # 2026-07-11 with M3 hardware, databases via homebrew
 result[ , c("test", "replications", "elapsed")]
 #         test replications elapsed
-# 5     SQLite            3     1.1
-# 1     DuckDB            3     1.1
-# 3    MongoDB            3     2.0
-# 4 PostgreSQL            3     2.0
-# 2    MariaDB            3     3.0
+# 1     DuckDB            3    0.85
+# 5     SQLite            3    0.91
+# 4 PostgreSQL            3    1.94
+# 2    MariaDB            3    2.70
+# 3    MongoDB            3    2.86
 # 7    Elastic            3    29.0
 # 6    CouchDB            3    57.4
 
@@ -353,7 +353,7 @@ for (pkg in pkgs) message(pkg, ": ", packageVersion(pkg))
 # RSQLite: 3.53.3
 # duckdb: 1.5.4.3
 # RPostgres: 1.4.10
-# mongolite: 4.0.0
+# mongolite: 4.1.0
 # elastic: 1.2.2
 # sofa: 0.4.0
 # RMariaDB: 1.3.5

README.md

@@ -372,11 +372,11 @@ result <- rbenchmark::benchmark(
 # 2026-07-11 with M3 hardware, databases via homebrew
 result[ , c("test", "replications", "elapsed")]
 #         test replications elapsed
-# 5     SQLite            3     1.1
-# 1     DuckDB            3     1.1
-# 3    MongoDB            3     2.0
-# 4 PostgreSQL            3     2.0
-# 2    MariaDB            3     3.0
+# 1     DuckDB            3    0.85
+# 5     SQLite            3    0.91
+# 4 PostgreSQL            3    1.94
+# 2    MariaDB            3    2.70
+# 3    MongoDB            3    2.86
 # 7    Elastic            3    29.0
 # 6    CouchDB            3    57.4
 
@@ -389,7 +389,7 @@ for (pkg in pkgs) message(pkg, ": ", packageVersion(pkg))
 # RSQLite: 3.53.3
 # duckdb: 1.5.4.3
 # RPostgres: 1.4.10
-# mongolite: 4.0.0
+# mongolite: 4.1.0
 # elastic: 1.2.2
 # sofa: 0.4.0
 # RMariaDB: 1.3.5