On 12-09-03 1:43 AM, Spencer Graves wrote:
Hello, All:
The fda package has tests that run too long for CRAN's current
rules. I'd like to wrap some examples in a construct like the following:
if(!CRAN()){
...
}
I tried the following:
CRAN <- function(x='_R_CHECK_CRAN_INCOMING_'){
x. <- Sys.getenv(x)
xl <- as.logical(x.)
notCRAN <- is.na(xl) || xl
#
return(!notCRAN)
}
The companion help page included the following example:
if(CRAN()){
stop('CRAN')
} else {
stop('NOT CRAN')
}
This reported "NOT CRAN" even with "R CMD check --as-cran".
There's no user-visible setting for --as-cran, because it just sets a
number of other options. You could query one of those. The settings
that are visible are
_R_CHECK_TIMINGS_ (which seems most relevant to you)
_R_CHECK_INSTALL_DEPENDS_
_R_CHECK_NO_RECOMMENDED_
_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_
So I'd check the value in _R_CHECK_TIMINGS_, or maybe just its existence.
Duncan Murdoch
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel