#
# beginner.R
#
# Helpful information for beginners
#
# $Revision: 1.3 $ $Date: 2015/10/21 09:06:57 $
#
print.autoexec <- function(x, ...) { x() }
beginner <- function(package="spatstat") {
package <- as.character(substitute(package))
RShowDoc("BEGINNER.txt", type="txt", package=package)
return(invisible(NULL))
}
class(beginner) <- "autoexec"
foo <- local({
fooText <- paste0("Error: object 'foo' not found.\n\n",
"'foo' is not a defined variable or function.\n",
"It is a placeholder name, which serves only to ",
"demonstrate a concept. It represents the name of ",
"any desired object or function. ",
"Other placeholder names popular with computer scientists ",
"are 'bar', 'foobar', 'qux' and 'mork'.")
foo <- function() {
splat(fooText)
return(invisible(NULL))
}
class(foo) <- "autoexec"
foo
})
plot.foo <- function(x, ...) foo()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.