length <- runif(15, min=1, max=50)
width <- runif(15, min=1, max=50)
my.df <- data.frame("length"=length, "width"=width)
devtools::use_data(my.df, overwrite = TRUE) # to be able to document your data and publish
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.