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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.