#' Publication d'un landmark dans l'API de coléo
#'
#' Cette fonction applique la méthode POST sur le point d'entrées `sites` de l'API de Coleo
#'
#' @inheritParams post_cells
#' @export
post_landmarks <- function(data, ...) {
# Preparation de l'objet de sortie
responses <- list()
class(responses) <- "coleoPostResp"
endpoint <- endpoints()$landmarks
for (i in 1:length(data)) {
# On retourne l'id unique pour la campagne à laquelle est rattaché les repères
# Le unlist c'est pour les pages, mais je sais que la réponse contient une seule page (match sur un code)
data[[i]]$campaign_id <- as.data.frame(get_campaigns(site_code=data[[i]]$site_code,opened_at=data[[i]]$opened_at,closed_at=data[[i]]$closed_at))$id
responses[[i]] <- post_gen(endpoint, data[[i]], ...)
}
return(responses)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.