Nothing
#' @export
"ylim.scale" <-
function(ylim, scale = 0.)
{
scale2 <- diff(ylim)
if(scale2 < scale)
rep(mean(ylim), 2.) + ((ylim - mean(ylim)) * scale)/scale2
else ylim
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.