R/v2log.R

In clessn/clessn-hub-r: Package d'Accès aux données de la CLESSN

#'
#' @export
logToHub <- function(app, data, metadata)
{
  path <- "/data/entry/"
  response <- http_post(path, list(app=app, data=data, metadata=metadata))
  if (response$status_code != 200)
  {
    warning(paste("Pas réussi à logger, erreur", response$status_code))
  }
}