R/save_and_lock.R

In gipso/encryptrpak: Easily Encrypt/Decrypt Files

save_and_lock <- function(
    x, #nolint
    file,
    type = "csv",
    public_key = here::here("_ssh", "id_rsa.pub"),
    ...
  ) {
  checkmate::assert_path_for_output(file, overwrite = TRUE)
  checkmate::assert_choice(type, c("csv", "rds"))

  if (type == "csv") {
    checkmate::assert_data_frame(x)

    readr::write_csv(x, file, ...)

    if (checkmate::test_file_exists(paste0(file, ".lockr"))) {
      fs::file_delete(paste0(file, ".lockr"))
    }

    lock_file(file, public_key, remove_file = TRUE)
  } else {
    readr::write_rds(x, file, ...)

    if (checkmate::test_file_exists(paste0(file, ".lockr"))) {
      fs::file_delete(paste0(file, ".lockr"))
    }

    lock_file(file, public_key, remove_file = TRUE)
  }

  paste0(file, ".lockr")
}