set.seed(803)
random_ints = sample(5L, size = nrow(iris), replace = TRUE)
s = split(iris, random_ints)
Map(write.csv, s, paste0(names(s), ".csv"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.