Update use1_demand_data.R

dathere · Sep 7, 2023 · 7758c2c · 7758c2c
1 parent a30db4c
commit 7758c2c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/boerne-water-supply/rcode/use1_demand_data.R b/boerne-water-supply/rcode/use1_demand_data.R
@@ -138,7 +138,7 @@ ma <- function(x,n=7){stats::filter(x,rep(1/n,n), sides=1)}
 #
 #####################################################################################################################################################################
 gs4_deauth()  # De-authenticate any existing session
-gs4_auth(cache = "boerne-water-supply/gargle-oauth")
+gs4_auth(cache = "/__w/Boerne-Dashboard/Boerne-Dashboard/boerne-water-supply/gargle-oauth")
 2
 demand_data <- read_sheet("https://docs.google.com/spreadsheets/d/1BKb9Q6UFEBNsGrLZhjdq2kKX5t1GqPFCWF553afUKUg/edit#gid=2030520898", sheet = 1, range = "A229:H", col_names = FALSE,col_types = "Dnnnnnnn")
 demand_by_source <- demand_data[, c("...1", "...2", "...3", "...6", "...7", "...8")]