Nothing
theplot <- iboxplot(t(grav$pheno), breaks=51, orderByMedian=FALSE,
chartOpts=list(xlab="Time index", ylab="Root tip angle (degrees)"))
htmlwidgets::saveWidget(theplot, file="iboxplot.html", selfcontained=FALSE)
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.