From 38b1a7f2b367664df80d16e44f097dd5c3289429 Mon Sep 17 00:00:00 2001
From: rtesra <70330391+rtesra@users.noreply.github.com>
Date: Wed, 30 Oct 2024 11:09:32 +0000
Subject: [PATCH] Update R/input-time-series.R

Co-authored-by: Rob <39248272+r-ash@users.noreply.github.com>
---
 R/input-time-series.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/R/input-time-series.R b/R/input-time-series.R
index 4dcf4353..9e21b33d 100644
--- a/R/input-time-series.R
+++ b/R/input-time-series.R
@@ -581,15 +581,18 @@ prepare_art_spectrum_comparison <- function(art, shape, pjnz) {
 
   ## Check if shape is object or file path
   if(!inherits(shape, "sf")) {
-    shape <- read_area_merged(shape) }
+    shape <- read_area_merged(shape)
+  }
 
   ## Check if art is object or file path
   if(!inherits(art, c("spec_tbl_df","tbl_df","tbl","data.frame" ))) {
-    art <- read_art_number(art, all_columns = TRUE)}
+    art <- read_art_number(art, all_columns = TRUE)
+  }
 
   ## PJNZ either object or file path
   if (!inherits(pjnz, "spec_program_data")) {
-    pjnz <- extract_pjnz_program_data(pjnz) }
+    pjnz <- extract_pjnz_program_data(pjnz)
+  }
 
   ## Aggregate ART data
   art_agreggated <- art |>