From 997e7977bf493b231671d74be00a431ae61de348 Mon Sep 17 00:00:00 2001
From: Caiwen Li <130128348+LisaLi525@users.noreply.github.com>
Date: Wed, 13 Dec 2023 21:57:46 +0200
Subject: [PATCH] Create Data Loading and Preparation.R

---
 Data Loading and Preparation.R | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 Data Loading and Preparation.R

diff --git a/Data Loading and Preparation.R b/Data Loading and Preparation.R
new file mode 100644
index 0000000..bfc6e6a
--- /dev/null
+++ b/Data Loading and Preparation.R	
@@ -0,0 +1,14 @@
+# Load and rename tables from the database
+load_and_rename_tables <- function(db_connection) {
+  account_details <- tbl(db_connection, "account_details")
+  items_master <- tbl(db_connection, "items_master")
+  transaction_summary <- tbl(db_connection, "transaction_summary")
+  fiscal_calendar <- tbl(db_connection, "fiscal_calendar")
+  merch_hierarchy <- tbl(db_connection, "merch_hierarchy")
+  daily_performance <- tbl(db_connection, "daily_performance")
+  store_comp <- tbl(db_connection, "store_comp")
+  cust_profile_data <- tbl(db_connection, "cust_profile_data")
+  store_master <- tbl(db_connection, "store_master")
+  
+  return(list(account_details, items_master, transaction_summary, fiscal_calendar, merch_hierarchy, daily_performance, store_comp, cust_profile_data, store_master))
+}