data-raw/try_api.R

In mcanouil/rocketchatr: Rocket.Chat R Client

# library(httr)


rc <- function(resp, path) {
  if (httr::http_type(resp) != "application/json") {
    stop("API did not return json", call. = FALSE)
  }

  parsed <- jsonlite::fromJSON(httr::content(resp, "text"), simplifyVector = FALSE)

  if (httr::status_code(resp) != 200) {
    stop(
      sprintf(
        "REST API request failed [%s]\n%s\n<%s>",
        httr::status_code(resp),
        parsed$message,
        parsed$documentation_url
      ),
      call. = FALSE
    )
  }

  structure(
    list(
      content = parsed,
      path = path,
      response = resp
    ),
    class = "rocketchat_api"
  )
}

rc_api <- function(
  path,
  url = "http://chat-new.egid.local:3000/",
  user_agent = httr::user_agent("https://github.com/mcanouil/rocketchatr")
) {
  url <- httr::modify_url(url, path = path)

  resp <- httr::GET(url, user_agent)

  rc(resp, path)
}

rc_api("api/info")


authenticate <- function(
  path = "/api/v1/login",
  url = "http://chat-new.egid.local:3000/",
  user_agent = httr::user_agent("https://github.com/mcanouil/rocketchatr")
) {
  url <- httr::modify_url(url, path = path)

  resp <- httr::POST(
    url = url,
    config = list(user_agent),
    body = jsonlite::toJSON(list(
      user = rstudioapi::askForPassword("User"),
      password = rstudioapi::askForPassword("password")
    ), auto_unbox = TRUE),
    encode = "raw"
  )

  rc(resp, path)
}

authenticate()