1 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function ()
{
if (is.na(last_seen) | Sys.Date() > last_seen) {
fns_to_learn <<- sample(c(ls("package:base"), ls("package:utils"),
ls("package:stats"), ls("package:MASS")), 5)
}
last_seen <<- Sys.Date()
cat("R-Trivia: Do you know these following functions?\n")
invisible(cat(paste(seq_along(fns_to_learn), fns_to_learn,
sep = ". "), sep = "\n"))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.