The R Project SVN R

Rev

Rev 27443 | Rev 42857 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27443 Rev 27474
Line 6... Line 6...
6 
## lm.glm is in ../src/library/utils/man/demo.Rd }:
 6 
## lm.glm is in ../src/library/utils/man/demo.Rd }:
7 
dont <- list(graphics = c("Hershey", "Japanese", "plotmath"),
 7 
dont <- list(graphics = c("Hershey", "Japanese", "plotmath"),
8 
             stats = c("lm.glm", "nlm")
 8 
             stats = c("lm.glm", "nlm")
9 
             )
 9 
             )
10 
## don't take tcltk here
 10 
## don't take tcltk here
11 
for(pkg in c("base", "eda", "graphics", "stats")) {
 11 
for(pkg in c("base", "graphics", "stats")) {
12 
 
 12 
 
13 
    demos <- list.files(file.path(system.file(package = pkg), "demo"),
 13 
    demos <- list.files(file.path(system.file(package = pkg), "demo"),
14 
                        pattern = "\\.R$")
 14 
                        pattern = "\\.R$")
15 
    demos <- demos[is.na(match(demos, paste(dont[[pkg]], "R",sep=".")))]
 15 
    demos <- demos[is.na(match(demos, paste(dont[[pkg]], "R",sep=".")))]
16 
 
 16