Nothing
#' API base url and endpoint setup
#'
#' @importFrom whisker whisker.render
#' @importFrom lazyeval lazy_dots all_dots
#' @export
#' @param x A URL
#' @param .data Result of a call to \code{api}
#' @param ... Comma separated list of unquoted variable names
#' @param .dots Used to work around non-standard evaluation
#' @param template Template to contstruct API route
#' @param data Data to pass to the template parameter
#' @family dsl
#' @examples \dontrun{
#' # Set base url
#' ## works with full or partial URLs
#' api('https://api.github.com/')
#' api('http://api.gbif.org/v1')
#' api('api.gbif.org/v1')
#'
#' ## works with ports, full or partial
#' api('http://localhost:9200')
#' api('localhost:9200')
#' api(':9200')
#' api('9200')
#' api('9200/stuff')
#'
#' # set paths
#' ## NSE
#' api('https://api.github.com/') %>%
#' api_path(repos, ropensci, rgbif, issues)
#' ## SE
#' api('https://api.github.com/') %>%
#' api_path_('repos', 'ropensci', 'rgbif', 'issues')
#'
#' # template
#' repo_info <- list(username = 'craigcitro', repo = 'r-travis')
#' api('https://api.github.com/') %>%
#' api_template(template = 'repos/{{username}}/{{repo}}/issues', data = repo_info)
#' }
api <- function(x) {
pipe_autoexec(toggle = TRUE)
structure(list(url = as.url(x)), class = "endpoint")
}
#' @export
print.endpoint <- function(x, ...) {
cat(sprintf("URL: %s", x$url))
}
# path defintion ------------------------------------
#' @export
#' @rdname api
api_path <- function(.data, ..., .dots) {
api_path_(.data, .dots = lazyeval::lazy_dots(...))
}
#' @export
#' @rdname api
api_path_ <- function(.data, ..., .dots) {
pipe_autoexec(toggle = TRUE)
tmp <- lazyeval::all_dots(.dots, ...)
.data <- as.req(.data)
modifyList(.data, list(paths = getpaths(tmp)))
}
getpaths <- function(x) {
unname(sapply(x, function(z) as.character(z$expr)))
}
# api template ------------------------------------
#' @export
#' @rdname api
api_template <- function(.data, template, data) {
pipe_autoexec(toggle = TRUE)
.data <- as.req(.data)
temp <- whisker::whisker.render(template, data)
modifyList(.data, list(template = temp))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.