update queries to include mac directory

queries.R

@@ -5,10 +5,27 @@ library(dplyr)
 library(DBI)
 library(xts)
 
+# local testing env setup
+os <- Sys.info()["sysname"]
+
 linuxdir <- "/home/dylan/Personal/Projects/Hurricane Normalization/"
 macdir <- "~/Desktop/Personal/Projects/Hurricane Normalization/"
-#baseDir <- macdir
-baseDir <- linuxdir
+widir <- "E/..."
+
+if (!is.null(os)) {
+  if (grepl("darwin", os, ignore.case = T)) {
+    cat("OS: Mac")
+    baseDir <- macdir
+  } else if (grepl("linux", os, ignore.case = T)) {
+    cat("OS: Linux")
+    baseDir <- linuxdir
+  } else if (grepl("windows", os, ignore.case = T)) {
+    cat("OS: Win")
+    baseDir <- windir
+  } else {
+    cat("Cannot identify OS")
+  }
+}
 
 config <- config::get(
   file = paste0(baseDir, "R/dataScripts/restructured/app/config.yml")