diff --git a/dashboard.Rmd b/dashboard.Rmd index 4f2d3a4..a1f9e8b 100644 --- a/dashboard.Rmd +++ b/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() diff --git a/queries.R b/queries.R index 0750fca..a7a58f0 100644 --- a/queries.R +++ b/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(