# NOT RUN {
<!-- % Look in fda-ex.Rout -->
# }
# NOT RUN {
<!-- % for the results from R CMD check -->
# }
# NOT RUN {
<!-- % Modified defaults were tested with environment variables -->
# }
# NOT RUN {
<!-- % _CRAN_pattern_ = 'A' and _n_R_CHECK4CRAN_ = '10' -->
# }
# NOT RUN {
<!-- % 'R CMD check' found 26 matches and CRAN() returned TRUE -->
# }
# NOT RUN {
cran <- CRAN()
str(cran)
gete <- attr(cran, 'Sys.getenv')
(ngete <- names(gete))
iget <- grep('^_', names(gete))
gete[iget]
# }
# NOT RUN {
if(CRAN()){
stop('CRAN')
} else {
stop('NOT CRAN')
}
# }
Run the code above in your browser using DataLab