The R Project SVN R

Rev

Rev 42764 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 42764 Rev 87340
Line 1... Line 1...
1 
#### Simple integrity tests of the system datasets
 1 
#### Simple integrity tests of the system datasets
2 
 
 2 
 
3 
options(useFancyQuotes=FALSE)
 3 
options(useFancyQuotes=FALSE)
4 
env <- as.environment("package:datasets")
 4 
env <- as.environment("package:datasets")
5 
d <- ls(env) # don't want .names
 5 
d <- setdiff(ls(env), "sunspot.month") # don't want .names, nor "changing" one
6 
for(f in d) {
 6 
for(f in d) {
7 
    cat("\n** structure of dataset ", f, "\n", sep="")
 7 
    cat("\n** structure of dataset ", f, "\n", sep="")
8 
    str(get(f, envir=env, inherits=FALSE))
 8 
    str(get(f, envir=env, inherits=FALSE))
9 
}
 9 
}