Nothing
fgrep <- function( pattern, x, ... ) x [grep( pattern, x , ... )]
ngrep <- function( pattern, x, ... ) names(x)[grep( pattern, names(x), ... )]
lgrep <- function( pattern, x, ... ) levels(x)[grep( pattern, levels(x), ... )]
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.