R/update-attachment.R

In MTES-MCT/didoscalim: Charger des données dans DiDo

#' Mettre à jour une pièce jointe.
#'
#' @param attachment un objet attachment retourné par `get_attachment()` modifié
#'   par l'utilisateur
#'
#' @return un objet `dido_attachment()`
#'
#' @family attachment
#'
#' @export
#'
#' @examples
#' att <- list_attachments()[1, ]
#' dataset <- att$id
#' attachment <- get_attachment(list_attachments()[1, ], dataset = dataset)
#' attachment$title <- "un nouveau titre"
#' update_attachment(attachment)
update_attachment <- function(attachment) {
  check_mandatory_arguments("attachment")

  if (!is.dido_attachment(attachment)) abort_not_attachment()

  rid <- get_attachment_rid(attachment)
  id <- get_dataset_id(attachment)

  metadata <- internal_clean_metadata(attachment)
  if (is.null(metadata$published)) metadata$published <- format(Sys.time(), "%Y-%m-%dT:%H:%M:%S")

  url <- glue::glue("/datasets/{id}/attachments/{rid}/metadata")

  body <- jsonlite::toJSON(metadata, pretty = TRUE, auto_unbox = TRUE, na = "null")

  result <- dido_api(method = "PUT", path = url, body = body)
  attr(result, "id") <- id

  didoscalim_info(glue::glue('attachment "{attachment$title}" modifié'))

  invisible(dido_attachment(result))
}