Nothing
#' Reuse a droplet or image by name
#'
#' @export
#' @return A droplet
#' @param name A name that could be a droplet or image name
#' @param ... Named options passed on to \code{\link{droplet_create}}.
#' @details Internally, we call the \code{\link{droplets}} and
#' \code{\link{images}} (with \code{private = TRUE}) to get list of your
#' droplets and images - and we check against those.
#' @examples \dontrun{
#' # matches droplet that exists
#' droplet_reuse(name = 'BeguiledAmmonia')
#'
#' # matching image that exists
#' droplet_reuse(name = 'hadleyverse1', size = "1gb")
#'
#' # no matching droplet or image
#' droplet_reuse(name = 'tablesandchairs')
#' }
droplet_reuse <- function(name, ...) {
drops <- droplets()
imgs <- images(TRUE)
if (name %in% names(drops)) {
message("droplet of same name already exists")
drops[[name]]
} else if (name %in% names(imgs)) {
message("image of same name, creating droplet...")
droplet_create(name, image = imgs[[name]]$id, ...)
} else {
message("no matched droplets or images, creating new droplet...")
droplet_create(name, ...)
}
}
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.