From a30db4c7b036d06295f6e8e45a0efa81af69c289 Mon Sep 17 00:00:00 2001 From: Mohammed Minhajuddin <68331751+minhajuddin2510@users.noreply.github.com> Date: Thu, 7 Sep 2023 08:50:28 -0400 Subject: [PATCH] Update use1_demand_data.R --- boerne-water-supply/rcode/use1_demand_data.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/boerne-water-supply/rcode/use1_demand_data.R b/boerne-water-supply/rcode/use1_demand_data.R index e206b65..9d6f5e9 100644 --- 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 = "/github/workspace/gargle-oauth") +gs4_auth(cache = "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")]