#### Simple integrity tests of the system datasets
options(useFancyQuotes=FALSE)
env <- as.environment("package:datasets")
d <- ls(env) # don't want .names
for(f in d) {
cat("\n** structure of dataset ", f, "\n", sep="")
str(get(f, envir=env, inherits=FALSE))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.