tokenFunctions.R

get_fitbit_data <- function(access_token, request.url) {
  #url <- "https://api.fitbit.com/1/user/-/activities/date/today.json"
  response <- GET(request.url, add_headers(Authorization = paste("Bearer", access_token)))
  if (status_code(response) == 200) {
    data <- content(response, as = "parsed", simplifyVector = TRUE)
    return(data)
  } else {
    warning("Errore nella richiesta:", status_code(response))
    print(content(response, as = "text"))
    return(NULL)
  }
}

refresh_access_token <- function(refresh_token, client_id, client_secret) {
  # URL per il rinnovo del token
  url <- "https://api.fitbit.com/oauth2/token"
  
  # Codifica delle credenziali in Base64
  auth_header <- paste("Basic", base64_enc(paste0(client_id, ":", client_secret)))
  
  # Corpo della richiesta
  body <- list(
    grant_type = "refresh_token", # Specifica che stiamo rinnovando il token
    refresh_token = refresh_token # Il token di aggiornamento corrente
  )
  
  # Richiesta POST
  response <- httr::POST(
    url = url,
    add_headers(Authorization = auth_header), # Aggiunge l'intestazione di autorizzazione
    body = body,
    encode = "form" # I parametri devono essere inviati come form-data
  )
  
  # Controlla lo stato della risposta
  if (httr::status_code(response) == 200) {
    # Parsing della risposta in caso di successo
    tokens <- httr::content(response, as = "parsed")
    return(list(
      access_token = tokens$access_token,
      refresh_token = tokens$refresh_token
    ))
  } else {
    # Mostra l'errore se la richiesta fallisce
    warning("Errore nel rinnovo del token: ", httr::status_code(response))
    print(httr::content(response, as = "text")) # Mostra la risposta del server
    return(NULL)
  }
}