modify relative paths

queries.R

@@ -5,31 +5,7 @@ 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/"
-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")
-)
+config <- config::get(file = "config.yml")
 
 # SUPABASE CON
 con <- dbConnect(