for #317

ncss-tech · Nov 18, 2023 · b97d4c8 · b97d4c8
1 parent 0a43529
commit b97d4c8
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/R/createSSURGO.R b/R/createSSURGO.R
@@ -200,6 +200,7 @@ createSSURGO <- function(filename,
 
     if (!is.null(msidxdet)) {
       indexPK <- na.omit(msidxdet[[4]][msidxdet[[1]] == mstab_lut[x] & grepl("PK_", msidxdet[[2]])])
+      indexDI <- na.omit(msidxdet[[4]][msidxdet[[1]] == mstab_lut[x] & grepl("DI_", msidxdet[[2]])])
     }
 
     d <- try(as.data.frame(data.table::rbindlist(lapply(seq_along(f.txt.grp[[x]]), function(i) {
@@ -241,6 +242,16 @@ createSSURGO <- function(filename,
         }, silent = quiet)
       }
 
+      # create key indices
+      if (!is.null(indexDI) && length(indexDI) > 0) {
+        for (i in seq_along(indexDI)) {
+          try({
+            RSQLite::dbExecute(con, sprintf("CREATE INDEX IF NOT EXISTS %s ON %s (%s)", 
+                                            paste0('DI_', mstab_lut[x]), mstab_lut[x], indexDI[i]))
+          }, silent = quiet)
+        }
+      }
+
       # for GPKG output, add gpkg_contents (metadata for features and attributes)
       if (IS_GPKG) {
         # update gpkg_contents table entry