only calculate cluster stats if a single pollutant

openair-project · May 13, 2024 · 13572b4 · 13572b4
1 parent 5a69a59
commit 13572b4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/polarCluster.R b/R/polarCluster.R
@@ -482,7 +482,7 @@ polarCluster <-
     var_mean <- paste0("mean_", pollutant)
     var_percent <- paste0(pollutant, "_percent")
 
-    if (length(n.clusters) == 1L) {
+    if (length(n.clusters) == 1L && length(pollutant) == 1L) {
 
     clust_stats <-
       out_data %>%