From f13a307eeac74d8bb3abf7fa2cb89fe7a6e5045c Mon Sep 17 00:00:00 2001
From: Rob Ashton <robertashton94@gmail.com>
Date: Thu, 7 Nov 2024 11:26:40 +0000
Subject: [PATCH] Try using original data format

---
 R/input-comparison.R | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/R/input-comparison.R b/R/input-comparison.R
index f30f02b3..557179d2 100644
--- a/R/input-comparison.R
+++ b/R/input-comparison.R
@@ -169,12 +169,5 @@ prepare_spectrum_naomi_comparison <- function(art, anc, shape, pjnz){
     comparison_df <- rbind(art_comparison, anc_comparison)
   }
 
-  comparison_df |>
-    dplyr::select(indicator, area_name, year, group,
-                  spectrum = value_spectrum, naomi = value_naomi, difference) |>
-    tidyr::pivot_longer(
-      c(spectrum, naomi, difference),
-      names_to = "data_source"
-    ) |>
-    tidyr::drop_na(value)
+  comparison_df
 }