#' Scientific approximation
#'
#' @param x numeric
#' @param y number of digits
#' @export
round <- function(x, y=0){
return(trunc(x*10^y + 0.5)/(10^y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.