randBatch <- function(d) {
lst <- lapply(split(seq_len(nrow(d)), d$date), function(x) {
x[sample.int(length(x))]
})
d <- d[unlist(lst, use.names = FALSE), ]
rownames(d) <- NULL
return(d)
}
TRUE
TRUE
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.