R/login.R

In assuncaolfi/cartolr: Pacote de interação com a API do Cartola FC

#' Autentica no servidor do Cartola.
#'
#' @param email O e-mail da conta.
#' @param senha A senha da conta.
#' @return Um token, que deve ser usado como argumento nas funções que exigem
#' autenticação.
#' @seealso \code{\link{pegar_cartoletas}} retorna as cartoletas da conta.
#' @seealso \code{\link{escalar_time}} escala o time.
#' @import httr
#' @import jsonlite
#' @import magrittr
#' @import dplyr
#' @import purrr
#' @examples
#' login("nome@email.com", "senha") %>%
#'  pegar_cartoletas()
#' @export
login <- function(email, senha) {
  token <-
    POST(
      url = 'https://login.globo.com/api/authentication',
      body =
        list(
          payload = list(
            email = email,
            password = senha,
            serviceId = 438
          )
        ) %>%
        toJSON(auto_unbox = TRUE),
      add_headers(.headers = c("Content-Type" = "application/json"))
    ) %>%
    parse_json() %>%
    pluck(3)
}