fix: speed up assignment of metadata

openair-project · Jan 21, 2025 · 556bc07 · 556bc07
1 parent baf5fa9
commit 556bc07
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/importUKAQ-utils.R b/R/importUKAQ-utils.R
@@ -326,7 +326,7 @@ readDAQI <- function(files, year, source) {
 #' @param aq_data imported air quality data (annual, daqi, or otherwise)
 #' @noRd
 add_meta <- function(source, aq_data) {
-  meta_data <- importMeta(source = source, duplicate = TRUE)
+  meta_data <- importMeta(source = unique(source), duplicate = TRUE)
 
   meta_data <- distinct(meta_data, source, site, .keep_all = TRUE) %>%
     select(source, site, code, latitude, longitude, site_type)