R/connect.R

In SevillaR/HivepodR: Manipulate data on Hivepod backends

require("httr")

#' Creates a connection.
#' 
#' Setup a connection to a given Hivepod backend with credentials.
#' 
#' @param url The base URL to connect to.
#' @param user The user credential.
#' @param pass The password for the user.
#' 
#' @return connect returns a connection object for a Hivepod backend. 
#' This connection object can be used to discover and access to resources. 
#' @export
#' @examples 
#' cnx <- connect("http://jacaton-r.herokuapp.com", "demo", "1234") 

connect <- function(url, user, pass) {
  urlbase <- httr::handle(url)
  rping <- httr::GET(handle=urlbase, path="ping")
  dataPing <- httr::content(rping, type="application/json")

  status <- httr::GET(handle=urlbase,  config=httr::authenticate(user, pass), path="api/status")
  dataQ1 <- httr::content(status, type="application/json")
  
  con <- list(url, user, pass, status)
  return (con)
}