R/mmGetToken.R

In fepsik/mymaryR: Work with My Marilyn System

#' @name mmGetToken
#'
#' @param Login
#' @param Password
#'
#' @return numeric the estimated amount of good honey
#' @export
#' @examples new_token <- mmGetToken(Login = "email-mail.ru", Password = "yourpassword123")
mmGetToken <- function(Login = NULL, Password = NULL) {
  message("Welcome!")
  token_raw  <- httr::PUT("https://app.mymarilyn.ru/api/auth",
                          body = list(email = Login,
                                      password = Password,
                                      ttl = 720),
                          encode = "json")
  if (token_raw$status_code == 200) message("Succes")
  else message("Fail")
  new_token <- as.character(httr::content(token_raw)[3])
  return(new_token)
}