#!/home/statsadmin/R/bin/Rscript
args <- commandArgs()
idx <- as.numeric(args[length(args)])
.libPaths('ysidi/lib')
library(dplyr)
source('iris_source.R')
set.seed(Sys.time())
saveRDS(iris%>%dplyr::sample_n(idx),
file = sprintf('iris_%02d.rds',idx)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.