get_SDA_coecoclass: aggregate queries more efficient handling of mult…

…i-areasymbol input
ncss-tech · Nov 16, 2023 · e542406 · e542406
1 parent 62c6149
commit e542406
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/R/get_SDA_coecoclass.R b/R/get_SDA_coecoclass.R
@@ -161,13 +161,11 @@ get_SDA_coecoclass <- function(method = "None",
   mukey <- NULL; .N <- NULL; .SD <- NULL; .GRP <- NULL;
 
   if (!is.null(areasymbols)) {
-    res0 <- do.call('rbind', lapply(areasymbols, function(x) {
-      .SSURGO_query(paste0(
+    res0 <- .SSURGO_query(paste0(
         "SELECT DISTINCT mukey, nationalmusym, muname FROM mapunit
         INNER JOIN legend ON legend.lkey = mapunit.lkey
-        WHERE areasymbol = '", x, "'"
+        WHERE areasymbol IN ", format_SQL_in_statement(areasymbols)
       ))
-    }))
     idx <- makeChunks(res0$mukey, 1000)
     l <- split(res0$mukey, idx)
   } else {