dylan/hurricane_normalization_app
1
0
Fork 0
mirror of https://github.com/dylanbenzi/hurricane_normalization_app.git synced 2026-07-30 05:08:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

modify relative paths

Browse Source
This commit is contained in:
dylan
2025-11-24 13:32:25 -05:00
parent 53fec2582f
commit 6cedf35ce7
2 changed files with 2 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files
dashboard.Rmd
+1 -27
View File
@@ -41,33 +41,7 @@ library(shinyWidgets)
library(paletteer) library(paletteer)
library(shinyjs) library(shinyjs)
# local testing env setup source(file = "queries.R")
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"))
useShinyjs() useShinyjs()
queries.R
+1 -25
View File
@@ -5,31 +5,7 @@ library(dplyr)
library(DBI) library(DBI)
library(xts) library(xts)
# local testing env setup config <- config::get(file = "config.yml")
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")
)
# SUPABASE CON # SUPABASE CON
con <- dbConnect( con <- dbConnect(