From cc8239108f03925c4ca19a3ad8b644bc07887559 Mon Sep 17 00:00:00 2001 From: pdiakumis Date: Thu, 21 Sep 2023 00:24:42 +1000 Subject: [PATCH] multiqc: remove duplicate fields (fixes #96) --- R/multiqc.R | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/R/multiqc.R b/R/multiqc.R index 420967e..561b807 100644 --- 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,