From cb23d01414c29f252b03d357f27690856f07e1e1 Mon Sep 17 00:00:00 2001
From: Caiwen Li <130128348+LisaLi525@users.noreply.github.com>
Date: Wed, 13 Dec 2023 22:02:58 +0200
Subject: [PATCH] Create Store Analysis.R

---
 Store Analysis.R | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 Store Analysis.R

diff --git a/Store Analysis.R b/Store Analysis.R
new file mode 100644
index 0000000..77b6be6
--- /dev/null
+++ b/Store Analysis.R	
@@ -0,0 +1,19 @@
+# Analyze open stores
+analyze_open_stores <- function(transaction_summary, fiscal_calendar, start_date, end_date) {
+  open_store_query <- transaction_summary %>%
+    filter(trandate >= start_date, trandate < end_date) %>%
+    select(trandate, storeid) %>%
+    left_join(fiscal_calendar, by = c("trandate" = "fiscalday")) %>%
+    select(weekstart, storeid) %>%
+    distinct() %>%
+    group_by(storeid) %>%
+    summarise(nb_weeks = n()) %>%
+    ungroup() %>%
+    filter(nb_weeks == 105) %>%
+    select(storeid)
+    
+  open_store <- open_store_query %>%
+    collect()
+    
+  return(open_store)
+}