diff --git a/.Rbuildignore b/.Rbuildignore
index 232504f..388f1c6 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -22,3 +22,4 @@
 ^\.jules(/.*)?$
 ^\.trivyignore\.yaml$
 ^trivy\.yaml$
+^\.semgrepignore$
diff --git a/R/surveyFA.R b/R/surveyFA.R
index f60fffd..3811ad0 100644
--- a/R/surveyFA.R
+++ b/R/surveyFA.R
@@ -232,7 +232,8 @@ surveyFA <- function(
       names(p_values) <- rownames(fit_df)
       if (any(!is.na(p_values))) {
         p_values[is.na(p_values)] <- 1
-        candidate <- names(sort(p_values, decreasing = FALSE))[1L]
+        # ⚡ Bolt: Replace O(N log N) sort() with O(N) which.min() for performance
+        candidate <- names(p_values)[which.min(p_values)]
         if (!is.na(candidate) && p_values[[candidate]] < pThreshold) {
           return(candidate)
         }