R/login.R

In rGoodData: GoodData API Client Package

#' @import jsonlite
#' @import httr
#' @import data.table

library(httr)
library(jsonlite)

#' Gets the  Super Secured Token (SST) for Login
#' @keywords internal
#'
#' @return STT
superSecuredToken <- function() {
  values <- toJSON(list(postUserLogin = list(login = Sys.getenv("GOODDATA_USER"),
                                             password = Sys.getenv("GOODDATA_PASSWORD"),
                                             remember = 1,
                                             verify_level = 0)),
                   pretty = T,
                   auto_unbox = T)

  response = POST(url = paste0(Sys.getenv("GOODDATA_DOMAIN"), "/gdc/account/login/"),
           body = values,
           add_headers("Content-Type" = "application/json",
                       "User-Agent" = getUserAgent(),
                        Accept = "application/json"),
           encode = "json")

  processResponse(response)

  sst = response$headers$`set-cookie`
  return(sst)
}

#' Gets the Temporary Token (TT) for a given Super Secured Token (SST)
#' @keywords internal
#'
#' @param sst SST
#' @return TT
temporaryToken <- function(sst) {
  response <- GET(paste0(Sys.getenv("GOODDATA_DOMAIN"), "/gdc/account/token"),
                 add_headers(
                   'Accept' = 'application/json',
                   'Content-Type' = 'application/json',
                   'User-Agent' = getUserAgent(),
                   'Cookie' =  sst)
              )

  processResponse(response)

  tt <- response$headers$`set-cookie`
  return(tt)
}

#' Gets that Temporary Token (TT) auth cookie, wrapper for the easy access to TT
#' @export
#' @keywords internal
#'
#' @return Temporary Token (TT)
authCookie <- function() {
  sst <- superSecuredToken()
  tt <- temporaryToken(sst)
  return(tt)
}