R/R6_initialize.R

In longwei66/mountainbikeR: A package for mountainbikers to access and visualise ride data through strava API

#' def_initialize
#'
#' Create authentication token with strava (based on web authentication)
#' @param my_app_name chr string, the name of the app defined in strava
#' @param my_client_id chr string, the ID of the app like 27881
#' @param my_client_secret chr string, the secret as defined in strava
#' @param my_app_scope chr string for requested scopes, as a comma delimited
#' @param cache logical, TRUE to have local cache of the token, FALSE not
#' string, e.g. "activity:read_all,activity:write"
#'
#'
#' @return sig strava token
#' @export
#' @importFrom httr oauth_app oauth_endpoint oauth2.0_token
#'
#' @seealso \url{http://developers.strava.com/docs/authentication/}
#' @seealso \url{https://developers.strava.com/docs/authentication/#detailsaboutrequestingaccess}
#' @examples
#' \dontrun{
#' connect2strava(strava_key = "mykeyhere", strava_secret = "mysecrethere")
#' }
def_initialize <- function(
    my_app_name = NULL
    , my_client_id = NULL
    , my_client_secret = NULL
    , my_app_scope = "read,read_all,activity:read_all" #"public"
    , cache = FALSE
    ){

    # check inputs
    if(is.null(my_app_name)){ stop("my_app_name cannot be NULL")}
    if(is.null(my_client_id)){ stop("my_client_id cannot be NULL")}
    if(is.null(my_client_secret)){ stop("my_client_secret cannot be NULL")}
    if(is.null(my_app_scope)){ stop("my_app_scope cannot be NULL")}

    #Set as private values
    private$.my_app_name        <- my_app_name
    private$.my_client_id       <- my_client_id
    private$.my_client_secret   <- my_client_secret
    private$.my_app_scope       <- my_app_scope
    private$.cache              <- cache


    message(private$.my_app_name)
    message(private$.my_client_id)
    message(private$.my_client_secret)
    message(private$.my_app_scope)
    message(private$.cache)

    # declare the auth_app
    my_app <- httr::oauth_app(
        appname = private$.my_app_name
        , key = private$.my_client_id
        , secret = private$.my_client_secret
        )

    # configure endpoint
    my_endpoint <- httr::oauth_endpoint(
        request = "https://www.strava.com/oauth/authorize?",
        authorize = "https://www.strava.com/oauth/authorize",
        access = "https://www.strava.com/oauth/token"
    )

    private$.token <- httr::oauth2.0_token(
        endpoint = my_endpoint
        , app = my_app
        , as_header = FALSE
        , scope = private$.my_app_scope
        , cache = private$.cache
        )
    private$.connexion_status <- TRUE
    message("Token sucessfully generated ! You can retreive the value using 'token' method of your object.")

}