Nothing
PlotChrom <- function(x){
plot(as.character(x$RT),as.character(x$MZ),type="h",xlab="Retention Time", ylab = "Mass/Charge Ration")
identify(as.character(x$RT),as.character(x$MZ),x$MSPeaks)
}
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.