multiqc: remove duplicate fields (fixes #96)

umccr · Sep 20, 2023 · cc82391 · cc82391
1 parent e90eb6e
commit cc82391
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/multiqc.R b/R/multiqc.R
@@ -71,6 +71,11 @@ multiqc_tidy_json <- function(j) {
     return(dracarys::multiqc_parse_raw(p))
   }
   d <- d |>
+    # get rid of duplicated elements - see umccr/dracarys#96
+    purrr::map(\(x) {
+      x[which(duplicated(names(x)))] <- NULL
+      x
+    }) |>
     dplyr::bind_rows(.id = "umccr_id") |>
     dplyr::mutate(
       config_creation_date = cdate,