From murdoch.duncan at gmail.com  Tue Sep  4 01:52:59 2012
From: murdoch.duncan at gmail.com (Duncan Murdoch)
Date: Mon, 03 Sep 2012 19:52:59 -0400
Subject: [Rd] if(--as-cran)?
In-Reply-To: <50453C86.1020708@prodsyse.com>
References: <50444374.50709@prodsyse.com> <50449765.4030208@gmail.com>
	<50453C86.1020708@prodsyse.com>
Message-ID: <504542DB.1020202@gmail.com>

On 12-09-03 7:25 PM, Spencer Graves wrote:
> Hi, Duncan et al.:
>
>
>         I modified my CRAN() function (see below) to look for
> "_R_CHECK_TIMINGS_" and "R_CHECK_TIMINGS", but got "NOT CRAN" with "R
> CMD check --as-cran" from both.
>
>
>         Suggestions?
>         Thanks,
>         Spencer
> p.s.  This is fda available from R-Forge via "svn checkout
> svn://svn.r-forge.r-project.org/svnroot/fda/".  It currently is
> programmed to stop no matter what.  I want it to give an error "CRAN"
> with "R CMD check --as-cran" and "NOT CRAN" without "--as-cran".
> Currently, I get "NOT CRAN" for both.

The problem is with your test.  If I put print(names(Sys.getenv())) into 
an example, I see _R_CHECK_TIMINGS_ if and only if I do the check with 
--as-cran.  The value is supposed to be a number, not a logical.

Duncan Murdoch


>
>
> On 9/3/2012 4:41 AM, Duncan Murdoch wrote:
>> 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
>>
>



[Rd] if(--as-cran)?
Duncan Murdoch