I've attached a package, ppp_0.1.tar.gz, which probably will not get
through to R-help, that illustrates this.
It contains one function which, by default, triggers a condition-length>1
issue:
f <- function(x = 1:3)
{
if (x > 1) {
x <- -x
}
stop("this function always gives an error")
}
and the help file example is
try(f())
Then
env _R_CHECK_LENGTH_1_CONDITION_=abort,verbose R-3.6.0 CMD check
--as-cran ppp_0.1.tar.gz
results in
* checking examples ... ERROR
Running examples in ‘ppp-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: f
> ### Title: Cause an error
> ### Aliases: f
> ### Keywords: error
>
> ### ** Examples
>
> try(f())
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
ppp
--- call from context ---
f()
--- call from argument ---
if (x > 1) {
x <- -x
}
--- R stacktrace ---
where 1: f()
where 2: doTryCatch(return(expr), name, parentenv, handler)
where 3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 4: tryCatchList(expr, classes, parentenv, handlers)
where 5: tryCatch(expr, error = function(e) {
call <- conditionCall(e)
if (!is.null(call)) {
if (identical(call[[1L]], quote(doTryCatch)))
call <- sys.call(-4L)
dcall <- deparse(call)[1L]
prefix <- paste("Error in", dcall, ": ")
LONG <- 75L
sm <- strsplit(conditionMessage(e), "\n")[[1L]]
w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
if (is.na(w))
w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L],
type = "b")
if (w > LONG)
prefix <- paste0(prefix, "\n ")
}
else prefix <- "Error : "
msg <- paste0(prefix, conditionMessage(e), "\n")
.Internal(seterrmessage(msg[1L]))
if (!silent && isTRUE(getOption("show.error.messages"))) {
cat(msg, file = outFile)
.Internal(printDeferredWarnings())
}
invisible(structure(msg, class = "try-error", condition = e))
})
where 6: try(f())
--- value of length: 3 type: logical ---
[1] FALSE TRUE TRUE
--- function from context ---
function (x = 1:3)
{
if (x > 1) {
x <- -x
}
stop("this function always gives an error")
}
<bytecode: 0x4f413d0>
<environment: namespace:ppp>
--- function search by body ---
Function f in namespace ppp has this body.
----------- END OF FAILURE REPORT --------------
Fatal error: the condition has length > 1
* checking PDF version of manual ... OK
* DONE
Status: 1 ERROR, 1 NOTE
See
‘/tmp/bill/ppp.Rcheck/00check.log’
for details.
Bill Dunlap
TIBCO Software
wdunlap tibco.com
On Fri, Jun 7, 2019 at 10:21 AM Duncan Murdoch <murdoch.dun...@gmail.com>
wrote:
> On 07/06/2019 12:32 p.m., William Dunlap wrote:
> > The length-condition-not-equal-to-one checks will cause R to shutdown
> > even if the code in a tryCatch().
>
> That's strange. I'm unable to reproduce it with my tries, and John's
> package is no longer online. Do you have an example I could look at?
>
> Duncan Murdoch
>
> >
> > Bill Dunlap
> > TIBCO Software
> > wdunlap tibco.com <http://tibco.com>
> >
> >
> > On Fri, Jun 7, 2019 at 7:47 AM Duncan Murdoch <murdoch.dun...@gmail.com
> > <mailto:murdoch.dun...@gmail.com>> wrote:
> >
> > On 07/06/2019 9:46 a.m., J C Nash wrote:
> > > Should try() not stop those checks from forcing an error?
> >
> > try(stop("msg")) will print the error message, but won't stop
> > execution. Presumably the printed message is what is causing you
> > problems. If you want to suppress that, use
> >
> > try(stop("msg"), silent = TRUE)
> >
> > Duncan Murdoch
> >
> > >
> > > I recognize that this is the failure -- it is indeed the check
> > I'm trying to
> > > catch -- but I don't want tests of such checks to fail my package.
> > >
> > > JN
> > >
> > > On 2019-06-07 9:31 a.m., Sebastian Meyer wrote:
> > >> The failure stated in the R CMD check failure report is:
> > >>
> > >>> --- failure: length > 1 in coercion to logical ---
> > >>
> > >> This comes from --as-cran performing useful extra checks via
> > setting the
> > >> environment variable _R_CHECK_LENGTH_1_LOGIC2_, which means:
> > >>
> > >>> check if either argument of the binary operators && and || has
> > length greater than one.
> > >>
> > >> (see
> > https://cran.r-project.org/doc/manuals/r-release/R-ints.html#Tools)
> > >>
> > >> The failure report also states the source of the failure:
> > >>
> > >>> --- call from context ---
> > >>> fchk(x, benbad, trace = 3, y)
> > >>> --- call from argument ---
> > >>> is.infinite(fval) || is.na <http://is.na>(fval)
> > >>
> > >> The problem is that both is.infinite(fval) and is.na
> > <http://is.na>(fval) return
> > >> vectors of length 10 in your test case:
> > >>
> > >>> --- value of length: 10 type: logical ---
> > >>> [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
> FALSE
> > >>
> > >> The || operator works on length 1 Booleans. Since fval can be of
> > length
> > >> greater than 1 at that point, the proper condition seems to be:
> > >>
> > >> any(is.infinite(fval)) || any(is.na <http://is.na>(fval))
> > >>
> > >> Best regards,
> > >>
> > >> Sebastian
> > >>
> > >>
> > >> Am 07.06.19 um 14:53 schrieb J C Nash:
> > >>> Sorry reply not quicker. For some reason I'm not getting
> > anything in the thread I started!
> > >>> I found the responses in the archives. Perhaps cc:
> > nas...@uottawa.ca <mailto:nas...@uottawa.ca> please.
> > >>>
> > >>> I have prepared a tiny (2.8K) package at
> > >>> http://web.ncf.ca/nashjc/jfiles/fchk_2019-6.5.tar.gz
> > >>>
> > >>> R CMD check --> OK
> > >>>
> > >>> R CMD check --as-cran --> 1 ERROR, 1 NOTE
> > >>>
> > >>> The error is in an example:
> > >>>
> > >>>> benbad<-function(x, y){
> > >>>> # y may be provided with different structures
> > >>>> f<-(x-y)^2
> > >>>> } # very simple, but ...
> > >>>>
> > >>>> y<-1:10
> > >>>> x<-c(1)
> > >>>> cat("test benbad() with y=1:10, x=c(1)\n")
> > >>>> tryfc01 <- try(fc01<-fchk(x, benbad, trace=3, y))
> > >>>> print(tryfc01)
> > >>>> print(fc01)
> > >>>
> > >>> There's quite a lot of output, but it doesn't make much sense
> > to me, as
> > >>> it refers to code that I didn't write.
> > >>>
> > >>> The function fchk is attempting to check if functions provided
> for
> > >>> optimization do not violate some conditions e.g., character
> > rather than
> > >>> numeric etc.
> > >>>
> > >>> JN
> > >>>
> > >>>
> > >>> On 2019-06-07 8:44 a.m., J C Nash wrote:
> > >>>> Uwe Ligges ||gge@ @end|ng |rom @t@t|@t|k@tu-dortmund@de
> > >>>> Fri Jun 7 11:44:37 CEST 2019
> > >>>>
> > >>>> Previous message (by thread): [R-pkg-devel] try() in R
> > CMD check --as-cran
> > >>>> Next message (by thread): [R-pkg-devel] using package
> > data in package code
> > >>>> Messages sorted by: [ date ] [ thread ] [ subject ] [
> > author ]
> > >>>>
> > >>>> Right, what problem are you talking about? Can you tell us
> > which check
> > >>>> it is and what it actually complained about.
> > >>>> There is no check that looks at the sizes of x and y in
> > exypressions
> > >>>> such as
> > >>>> (x - y)^2.
> > >>>> as far as I know.
> > >>>>
> > >>>> Best,
> > >>>> Uwe
> > >>>>
> > >>>> On 07.06.2019 10:33, Berry Boessenkool wrote:
> > >>>>>
> > >>>>> Not entirely sure if this is what you're looking for:
> > >>>>>
> >
> https://github.com/wch/r-source/blob/trunk/src/library/tools/R/check.R
> > >>>>> It does contain --as-cran a few times and there's the
> > change-history:
> > >>>>>
> >
> https://github.com/wch/r-source/commits/trunk/src/library/tools/R/check.R
> > >>>>>
> > >>>>> Regards,
> > >>>>> Berry
> > >>>>>
> > >>>>>
> > >>>>> ________________________________
> > >>>>> From: R-package-devel <r-package-devel-bounces using
> > r-project.org <http://r-project.org>> on behalf of J C Nash
> > <profjcnash using gmail.com <http://gmail.com>>
> > >>>>> Sent: Thursday, June 6, 2019 15:03
> > >>>>> To: List r-package-devel
> > >>>>> Subject: [R-pkg-devel] try() in R CMD check --as-cran
> > >>>>>
> > >>>>> After making a small fix to my optimx package, I ran my usual
> > R CMD check --as-cran.
> > >>>>>
> > >>>>> To my surprise, I got two ERRORs unrelated to the change. The
> > errors popped up in
> > >>>>> a routine designed to check the call to the user objective
> > function. In particular,
> > >>>>> one check is that the size of vectors is the same in
> > expressions like (x - y)^2.
> > >>>>> This works fine with R CMD check, but the --as-cran seems to
> > have changed and it
> > >>>>> pops an error, even when the call is inside try(). The irony
> > that the routine in
> > >>>>> question is intended to avoid problems like this is not lost
> > on me.
> > >>>>>
> > >>>>> I'm working on a small reproducible example, but it's not
> > small enough yet.
> > >>>>> In the meantime, I'm looking for the source codes of the
> > scripts for "R CMD check" and
> > >>>>> "R CMD check --as-cran" so I can work out why there is this
> > difference, which seems
> > >>>>> to be recent.
> > >>>>>
> > >>>>> Can someone send/post a link? I plan to figure this out and
> > provide feedback,
> > >>>>> as I suspect it is going to affect others. However, it may be
> > a few days or even
> > >>>>> weeks if past experience is a guide.
> > >>>>>
> > >>>>> JN
> > >>>>>
> > >>>>> ______________________________________________
> > >>>>> R-package-devel using r-project.org <http://r-project.org>
> > mailing list
> > >>>>> https://stat.ethz.ch/mailman/listinfo/r-package-devel
> > >>>>>
> > >>>>> [[alternative HTML version deleted]]
> > >>>>>
> > >>>>> ______________________________________________
> > >>>>> R-package-devel using r-project.org <http://r-project.org>
> > mailing list
> > >>>>> https://stat.ethz.ch/mailman/listinfo/r-package-devel
> > >>>>>
> > >>>>
> > >>>
> > >>> ______________________________________________
> > >>> R-package-devel@r-project.org
> > <mailto:R-package-devel@r-project.org> mailing list
> > >>> https://stat.ethz.ch/mailman/listinfo/r-package-devel
> > >>>
> > >>
> > >> ______________________________________________
> > >> R-package-devel@r-project.org
> > <mailto:R-package-devel@r-project.org> mailing list
> > >> https://stat.ethz.ch/mailman/listinfo/r-package-devel
> > >>
> > >
> > > ______________________________________________
> > > R-package-devel@r-project.org
> > <mailto:R-package-devel@r-project.org> mailing list
> > > https://stat.ethz.ch/mailman/listinfo/r-package-devel
> > >
> >
> > ______________________________________________
> > R-package-devel@r-project.org <mailto:R-package-devel@r-project.org>
> > mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-package-devel
> >
>
>
ppp_0.1.tar.gz
Description: GNU Zip compressed data
______________________________________________ R-package-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-package-devel
