data('quantile.function')
get_quantile <- function(x, n){
if (n <= 150){
quantile.function[[n]](x)
} else
quantile.function[[150]](x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.