fix: appending meta in edge cases

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: openair
 Title: Tools for the Analysis of Air Pollution Data
-Version: 2.18.2.9004
+Version: 2.18.2.9005
 Date: 2024-10-01
 Authors@R: c(
     person("David", "Carslaw", , "[email protected]", role = c("aut", "cre"),

NEWS.md

@@ -32,6 +32,8 @@
 
 - `polarCluster()` will no longer error with multiple `pollutant`s and a single `n.clusters`.
 
+- `importUKAQ()` will correctly append site meta data when `meta = TRUE`, `source` is a length greater than 1, and a single site is repeated in more than one source (e.g., `importUKAQ(source = c("waqn", "aurn"), data_type = "daqi", year = 2024L))`)
+
 # openair 2.18-2
 
 ## New Features

R/importUKAQ-utils.R

@@ -326,12 +326,12 @@ 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)
+  meta_data <- importMeta(source = source, duplicate = TRUE)
 
   meta_data <- distinct(meta_data, source, site, .keep_all = TRUE) %>%
     select(source, site, code, latitude, longitude, site_type)
 
-  aq_data <- left_join(aq_data, meta_data, by = c("source", "code", "site"))
+  aq_data3 <- left_join(aq_data, meta_data, by = c("source", "code", "site"))
 
   return(aq_data)
 }