Nothing
# plug in some missing values
phe <- as.matrix(grav$pheno)
phe[14,ncol(grav$pheno)] <- NA
phe[sample(prod(dim(phe)), 200)] <- NA
theplot <- iplotCurves(phe, times,
chartOpts=list(curves_xlab="Time", curves_ylab="Root tip angle"))
htmlwidgets::saveWidget(theplot, file="iplotCurves_justcurves.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.