#' arrondi a la centaine.
#'
#' @param x vecteur numerique
#'
#' @return vecteur numerique
#' @export
#'
#' @examples
#' arrond_100(1198L)
arrond_100 <- function(x) {
return(100 * round(x / 100, digits = 0))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.