R/cloud_config.R

In analogsea: Interface to 'DigitalOcean'

#' Generate cloud config file.
#'
#' This takes a template stored in \code{inst/cloudconfig} and inserts
#' ssh_keys into the first user.
#'
#' @param name Name of template
#' @inheritParams droplet_create
#' @return A string. (Can't return yaml because the \code{yaml} package
#'   strips off comments, and the first comment is extremely important.)
#' @export
#' @keywords internal
#' @examples
#' \dontrun{
#' cat(cloud_config("ubuntu"))
#' }
cloud_config <- function(name, ssh_keys = NULL) {
  path <- system.file("cloudconfig", paste0(name, ".yaml"),
    package = "analogsea")
  if (identical(path, "")) {
    stop("Could not find config template for ", name, call. = FALSE)
  }

  config <- yaml::yaml.load_file(path)

  # Insert keys
  ssh_keys <- lapply(standardise_keys(ssh_keys), as.sshkey)
  public <- pluck(ssh_keys, "public_key", "character")

  config$users[[1]]$`ssh-authorized-keys` <- public

  # Convert back to string and restore comment
  text <- yaml::as.yaml(config)
  paste0("#cloud-config\n", text)
}