R/functions_to_learn_this_session.R

In vlulla/vlutils: Common utilities that I find useful

functions_to_learn_this_session <-
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"))
}