Add in token refresh

R/keys-from-env.R

@@ -1,4 +1,6 @@
-
 app_name <- "SamHeatmaps"
 app_client_id <- Sys.getenv("STRAVA_KEY")
 app_secret <- Sys.getenv("STRAVA_SECRET")
+strava_secret_token <- Sys.getenv("STRAVA_ACCESS_TOKEN")
+strava_s3_bucket <- "sams-strava-dashboard-data"
+refresh_token_filename <- "strava_refresh_token.txt"

R/scrape_strava.R

@@ -16,18 +16,21 @@ library(aws.s3)
 #.......Strava app name, client ID, secret, and athlete id.......
 source("R/keys-from-env.R")
 
+#.......Strava refresh token dance.......
+source("R/strava_authentication.R")
+my_token <- retrieve_strava_token()
+
 #......................create strava token.......................
-my_token <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret,
-                                              app_scope = "activity:read_all",
-                                              cache = TRUE))
+# my_token <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret,
+#                                               app_scope = "activity:read_all",
+#                                               cache = TRUE))
 
-print(my_token)
 ##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ##                                scrape data                               ----
 ##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
 #....................scrape strava activities....................
-my_actvities <- rStrava::get_activity_list(stoken = my_token)
+my_actvities <- rStrava::get_activity_list(my_token)
 
 ##~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ##                            wrangle / clean data                          ----

R/strava_authentication.R

@@ -0,0 +1,45 @@
+library(rStrava)
+library(aws.s3)
+
+source("R/keys-from-env.R")
+
+
+refresh_strava_token <- function(refresh_token) {
+  res <- httr::POST(
+    url = "https://www.strava.com/oauth/token",
+    body = list(
+      client_id = app_client_id,
+      client_secret = app_secret,
+      grant_type = "refresh_token",
+      refresh_token = refresh_token
+    )
+  )
+
+  new_token <- httr::content(res)
+  return(new_token)
+}
+
+retrieve_strava_token <- function() {
+  strava_refresh_token <- rawToChar(get_object(refresh_token_filename, bucket=strava_s3_bucket))
+
+  strava_app <- httr::oauth_app("strava", key = app_client_id, secret = app_secret)
+
+  strava_end <-httr::oauth_endpoint(
+    request = "https://www.strava.com/oauth/authorize?",
+    authorize = "https://www.strava.com/oauth/authorize",
+    access = "https://www.strava.com/oauth/token")
+
+  new_token <- refresh_strava_token(strava_refresh_token)
+
+  put_object(file = charToRaw(new_token$refresh_token), object=refresh_token_filename, bucket=strava_s3_bucket)
+
+  token <- httr::oauth2.0_token(
+    endpoint = strava_end,
+    app = strava_app,
+    credentials = new_token,
+    scope = "activity:read_all",
+    cache = TRUE
+  )
+  # Create a token object
+  httr::config(token = token)
+}