# NOT RUN {
## Both calls work :
if(interactive()) {
helppdf(Normal)
helppdf("NegBinomial")
} else { # batch mode
od <- setwd(tempdir())
ff <- helppdf(Normal, viewer=NULL)
stopifnot(file.exists(ff))
setwd(od)# revert to previous dir.
}
# }
Run the code above in your browser using DataLab