deploy.R

deploy_site <- function(
  input = ".",
  ssh_id = Sys.getenv("id_rsa", ""),
  repo_slug = Sys.getenv("TRAVIS_REPO_SLUG", ""),
  commit_message = "",
  verbose = FALSE,
  ...
) {
  if (!nzchar(ssh_id)) {
    stop("No deploy key found, please setup with `travis::use_travis_deploy()`",
      call. = FALSE
    )
  }
  if (!nzchar(repo_slug)) {
    stop("No repo detected, please supply one with `repo_slug`",
      call. = FALSE
    )
  }
  cli::rule("Deploying site", line = 2)
  ssh_id_file <- "~/.ssh/id_rsa"
  cli::rule("Setting up SSH id", line = 1)
  cli::cat_line("Copying private key to: ", ssh_id_file)
  pkgdown:::write_lines(rawToChar(openssl::base64_decode(ssh_id)), ssh_id_file)
  cli::cat_line("Setting private key permissions to 0600")
  fs::file_chmod(ssh_id_file, "0600")

  dest_dir <- fs::dir_create(fs::file_temp())
  on.exit(fs::dir_delete(dest_dir))
  pkgdown:::github_clone(dest_dir, repo_slug)
  rmarkdown::render(
    input = input, 
    output_dir = dest_dir, 
    output_file = "index.html"
  )
  commit_message <- sprintf("Built site for %s: %s@%s", commit_message, Sys.Date(), substr(Sys.getenv("TRAVIS_COMMIT"), 1, 7))
  pkgdown:::github_push(dest_dir, commit_message)
  cli::rule("Deploy completed", line = 2)
}


deploy_site("index.Rmd", commit_message = "curriculum_vitae")