Nothing
sample(Births78, 3) # sample 3 rows from Births78
Births78 %>% sample(3) # sample 3 rows from Births78
sample(1:10, size = 5) # random sample of size 5 (w/o replacement)
resample(1:10, size = 10) # random sample of size 10 (w/ replacement)
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.