# Config de base
server <- function() ifelse(file.exists(".local-server"), as.character(readRDS(".local-server")), "https://coleo.biodiversite-quebec.ca")
#server <- function() "http://localhost:8080" # dev purpose
base <- function() "/api/v1"
bearer <- function() ifelse(file.exists(".httr-oauth"), as.character(readRDS(".httr-oauth")), NA)
ua <- httr::user_agent("rcoleo")
# Point d'entrées de l'API
endpoints <- function(){
list(
cells = "/cells",
sites = "/sites",
campaigns = "/campaigns",
media = "/media",
observations = "/observations",
taxa = "/taxa",
landmarks = "/landmarks",
attributes = "/attributes",
traps = "/traps",
samples = "/samples",
lures = "/lures",
devices = "/devices"
)
}
# PRINT/MESSAGES HELPERS
empty_line <- function() {
message(paste(rep(" ", getOption("width") - 3), collapse = ""), "\r",
appendLF = FALSE)
}
msg_request_fail <- function(resp) {
sta <- httr::status_code(resp)
warning("API request failed: error ", sta)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.