modify relative paths

dashboard.Rmd

@@ -41,33 +41,7 @@ library(shinyWidgets)
 library(paletteer)
 library(shinyjs)
 
-# 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")
-)
-
-source(file = paste0(baseDir, "R/dataScripts/restructured/app/queries.R"))
+source(file = "queries.R")
 
 useShinyjs()