Remove renv. Add in debugging

samanthacsik · Oct 3, 2024 · 4fc89f4 · 4fc89f4
1 parent 878cfc3
commit 4fc89f4
Show file tree

Hide file tree

Showing 6 changed files with 16 additions and 4,045 deletions.
diff --git a/R/scrape_strava.R b/R/scrape_strava.R
@@ -20,6 +20,10 @@ source("R/keys-from-env.R")
 source("R/strava_authentication.R")
 my_token <- retrieve_strava_token()
 
+if (is.null(my_token)) {
+  stop("No Token Retrieved!")
+}
+
 #......................create strava token.......................
 # my_token <- httr::config(token = strava_oauth(app_name, app_client_id, app_secret,
 #                                               app_scope = "activity:read_all",

diff --git a/R/strava_authentication.R b/R/strava_authentication.R
@@ -21,7 +21,7 @@ refresh_strava_token <- function(refresh_token) {
 
 retrieve_strava_token <- function() {
   strava_refresh_token <- rawToChar(get_object(refresh_token_filename, bucket=strava_s3_bucket))
-
+  print(substr(strava_refresh_token, 1, 5))
   strava_app <- httr::oauth_app("strava", key = app_client_id, secret = app_secret)
 
   strava_end <-httr::oauth_endpoint(
@@ -31,6 +31,17 @@ retrieve_strava_token <- function() {
 
   new_token <- refresh_strava_token(strava_refresh_token)
 
+  if (is.null(new_token)) {
+    print("No Token Provided from refresh!")
+    return(NULL)
+  }
+  print(ls(new_token))
+  if (is.null(new_token$refresh_token)) {
+    print("No Refresh Token found in response!")
+    return(NULL)
+  }
+
+
   put_object(file = charToRaw(new_token$refresh_token), object=refresh_token_filename, bucket=strava_s3_bucket)
 
   token <- httr::oauth2.0_token(