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")]