R/droplet_reuse.R

In sckott/analogsea: Interface to 'DigitalOcean'

#' 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, ...)
  }
}