Nothing
utils::globalVariables(c("aes", "g", "ggplot", "geom_jitter", "geom_point", "geom_smooth", "theme", "var.g", "wi", "wi.tau", "xlab", "ylab", "geom_boxplot", "stat_summary"))
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.