Nothing
#' Get information on a single domain or all your domains.
#'
#' @export
#' @param x (character) Required. Domain name
#' @param ... Further args passed on the curl call to the web.
#' @examples \dontrun{
#' domains()
#' }
domains <- function(...) {
as.domain(do_GET(domain_url(), ...))
}
#' @rdname domains
#' @export
as.domain <- function(x) UseMethod("as.domain")
#' @export
as.domain.character <- function(x) domain(x)
#' @export
as.domain.list <- function(x) list_to_object(x, "domain")
#' @export
as.domain.domain <- function(x) x
#' @rdname domains
#' @export
domain <- function(x, ...) {
as.domain(do_GET(domain_url(x), ...))
}
#' @export
as.url.domain <- function(x, ...) domain_url(x$name)
domain_url <- function(x = NULL) url("domains", x)
#' @export
print.domain <- function(x, ...) {
cat("<domain> ", x$name, "\n", sep = "")
cat(" ttl: ", x$ttl, "\n", sep = "")
}
#' Create/delete domains.
#'
#' @export
#' @param domain A domain to modify
#' @param name (character) Required. The domain name to add to the
#' DigitalOcean DNS management interface. The name must be unique in
#' DigitalOcean's DNS system. The request will fail if the name has already
#' been taken.
#' @param ip_address (character) Required. An IP address for the domain's
#' initial A record.
#' @param ... Further args passed on the curl call to the web.
#' @examples \dontrun{
#' d <- domain_create('tablesandchairsbunnies.info', '107.170.220.59')
#' domain_delete(d)
#' }
domain_create <- function(name, ip_address, ...) {
as.domain(do_POST(domain_url(),
body = list(name = name, ip_address = ip_address),
encode = "multipart",
...
))
}
#' @rdname domain_create
#' @export
domain_delete <- function(domain, ...) {
domain <- as.domain(domain)
do_DELETE(domain)
}
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.