Hello, All:
devtools::check_rhub failed to trap an error wrapped in "try", per the email below. This came from running devtools::check_rhub(Ecfun_dir), where Ecfun_dir = the path to a copy of "https://github.com/sbgraves237/Ecfun";. This is the development version of Ecfun, which I want to submit to CRAN as soon as I can do so without offending the sensibilities of the overworked CRAN maintainers. Suggestions? Thanks, Spencer Graves -------- Forwarded Message -------- Subject: Ecfun 0.2-2: ERROR Date: Sun, 02 Feb 2020 23:27:10 +0000 From: R-hub builder <supp...@rhub.io> To: spencer.gra...@effectivedefense.org Ecfun 0.2-2: ERROR Ecfun 0.2-2: ERROR *Build ID:* |Ecfun_0.2-2.tar.gz-a5518fc2c19c4cd191a5d67b55c45603| *Platform:* Ubuntu Linux 16.04 LTS, R-release, GCC *Submitted:* 1 hour 55 minutes 18.7 seconds ago *Build time:* 1 hour 49 minutes 23.6 seconds ERRORS: * checking examples ... ERROR Running examples in ‘Ecfun-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: interpPairs > ### Title: interpolate between pairs of vectors in a list > ### Aliases: interpPairs interpPairs.call interpPairs.function > ### interpPairs.list > ### Keywords: manip > > ### ** Examples > > ### > ### > ### 1. interpPairs.function > ### > ### > > ## > ## 1.1. simple > ## > plot0 <- quote(plot(0)) > plot0. <- interpPairs(plot0) > # check > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(plot0, plot0.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 1.2. no op > ## > noop <- interpPairs(plot0, iFrame=-1) > # check > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(noop, enquote(NULL)) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 1.3. a more typical example > ## example function for interpPairs > tstPlot <- function(){ + plot(1:2, 1:2, type='n') + lines(firstFrame=1:3, + lastFrame=4, + x.1=seq(1, 2, .5), + y.1=x, + z.0=0, z.1=1, + txt.1=c('CRAN is', 'good', '...'), + col='red') + } > tstbo <- body(tstPlot) > iPlot <- interpPairs(tstbo[[2]]) > # check > iP <- quote(plot(1:2, 1:2, type='n')) > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(iPlot, iP) + ## Don't show: + ) > ## End(Don't show) > > iLines <- interpPairs(tstbo[[3]], nFrames=5, iFrame=2) > # check: > # .proportion = (iFrame-firstFrame)/(lastFrame-firstFrame) > # = c(1/3, 0, -1/3) > # if x.0 = 0 and y.0 = 0 by default: > iL <- quote(linex(x=c(1/3, 0), y=c(1/9, 0), z=c(1/3, 0), + tst=c('CR', ''))) > ## > ##**** This example seems to give the wrong answer > ##**** 2014-06-03: Ignore for the moment > ## > #all.equal(iLines, iL) > > ## > ## 1.4. Don't throw a cryptic error with NULL > ## > ip0 <- interpPairs(quote(text(labels.1=NULL))) > > > ### > ### > ### 2. interpPairs.list > ### > ### > > ## > ## 2.1. (x.0, y.0, x.1, y.1) -> (x,y) > ## > tstList <- list(x.0=1:5, y.0=5:9, y.1=9:5, x.1=9, + ignore=letters, col=1:5) > xy <- interpPairs(tstList, 0.1) > # check > xy. <- list(ignore=letters, col=1:5, + x=1:5 + 0.1*(9-1:5), + y=5:9 + 0.1*(9:5-5:9) ) > # New columns, 'x' and 'y', come after > # columns 'col' and 'ignore' already in tstList > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(xy, xy.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.2. Select the middle 2: > ## x=(1-(0,1))*3:4+0:1*0=(3,0) > ## > xy0 <- interpPairs(tstList[-4], c(-Inf, -1, 0, 1, 2) ) > # check > xy0. <- list(ignore=letters, col=3:4, x=c(3,0), y=7:6) > > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(xy0, xy0.) + ## Don't show: + ) > ## End(Don't show) > ## > ## 2.3. Null interpolation because of absence of y.1 and x.0 > ## > xy02 <- interpPairs(tstList[c(2, 4)], 0.1) > # check > #### NOT the current default answer; revisit later. > xy02. <- list(y=5:9, x=9) > > # NOTE: length(x) = 1 = length(x.1) in testList > #all.equal(xy02, xy02.) > > ## > ## 2.4. Select an empty list (make sure this works) > ## > x0 <- interpPairs(list(), 0:1) Warning message: In checkNames(object, avoid = pairs[c(1, 4, 2, 5)]) : object: names = NULL; returning make.names(character(length(x))), TRUE) > # check > x0. <- list() > names(x0.) <- character(0) > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(x0, x0.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.5. subset one vector only > ## > xyz <- interpPairs(list(x=1:4), c(-1, 0, 1, 2)) > # check > xyz. <- list(x=2:3) > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(xyz, xyz.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.6. with elements of class call > ## > xc <- interpPairs(list(x=1:3, y=quote(x+sin(pi*x/6))), 0:1) > # check > xc. <- list(x=1:3, y=quote(x+sin(pi*x/6))) > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(xc, xc.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.7. text > ## > # 2 arguments > j.5 <- interpPairs(list(x.0='', x.1=c('a', 'bc', 'def')), 0.5) > # check > j.5. <- list(x=c('a', 'bc', '')) > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(j.5, j.5.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.8. text, 1 argument as a list > ## > j.50 <- interpPairs(list(x.1=c('a', 'bc', 'def')), 0.5) > # check > ## Don't show: > stopifnot( + ## End(Don't show) + all.equal(j.50, j.5.) + ## Don't show: + ) > ## End(Don't show) > > ## > ## 2.9. A more complicated example with elements to eval > ## > logo.jpg <- paste(R.home(), "doc", "html", "logo.jpg", + sep = .Platform$file.sep) > if(require(jpeg)){ + Rlogo <- try(readJPEG(logo.jpg)) + if(!inherits(Rlogo, 'try-error')){ + # argument list for a call to rasterImage or rasterImageAdj + RlogoLoc <- list(image=Rlogo, + xleft.0 = c(NZ=176.5,CH=172,US=171, + CN=177,RU= 9.5,UK= 8), + xleft.1 = c(NZ=176.5,CH= 9,US=-73.5, + CN=125,RU= 37, UK= 2), + ybottom.0=c(NZ=-37, CH=-34,US=-34, + CN=-33,RU= 48, UK=47), + ybottom.1=c(NZ=-37, CH= 47,US= 46, + CN= 32,RU=55.6,UK=55), + xright=quote(xleft+xinch(0.6)), + ytop = quote(ybottom+yinch(0.6)), + angle.0 =0, + angle.1 =c(NZ=0,CH=3*360,US=5*360, + CN=2*360,RU=360,UK=360) + ) + + RlogoInterp <- interpPairs(RlogoLoc, + .proportion=rep(c(0, -1), c(2, 4)) ) + # check + ## Don't show: + stopifnot( + ## End(Don't show) + all.equal(names(RlogoInterp), + c('image', 'xright', 'ytop', 'xleft', 'ybottom', 'angle')) + ## Don't show: + ) + ## End(Don't show) + } + # NOTE: 'xleft', and 'ybottom' were created in interpPairs, + # and therefore come after 'xright' and 'ytop', which were + # already there. + + ## + ## 2.10. using envir + ## + RlogoDiag <- list(x0=quote(Rlogo.$xleft), + y0=quote(Rlogo.$ybottom), + x1=quote(Rlogo.$xright), + y1=quote(Rlogo.$ytop) ) + + RlogoD <- interpPairs(RlogoDiag, .p=1, + envir=list(Rlogo.=RlogoInterp) ) + ## Don't show: + stopifnot( + ## End(Don't show) + all.equal(RlogoD, RlogoDiag) + ## Don't show: + ) + ## End(Don't show) + } Loading required package: jpeg Error in readJPEG(logo.jpg) : unable to open /usr/lib/R/doc/html/logo.jpg Error in interpPairs.list(RlogoDiag, .p = 1, envir = list(Rlogo. = RlogoInterp)) : object 'RlogoInterp' not found Calls: interpPairs -> interpPairs.list Execution halted NOTES: * checking CRAN incoming feasibility ... NOTE Maintainer: ‘Spencer Graves<spencer.gra...@effectivedefense.org>’ Found the following (possibly) invalid URLs: URL:https://www.measuringworth.com/ From: inst/doc/UpdatingUSGDPpresidents.html Status: Error Message: libcurl error code 60: SSL certificate problem: unable to get local issuer certificate (Status without verification: OK) * checking Rd cross-references ... NOTE Packages unavailable to check Rd xrefs: ‘EnvStats’, ‘drc’, ‘zoo’, ‘prodlim’, ‘TRAMPR’ See the full build log: HTML <https://builder.r-hub.io/status/Ecfun_0.2-2.tar.gz-a5518fc2c19c4cd191a5d67b55c45603>, text <https://builder.r-hub.io/status/original/Ecfun_0.2-2.tar.gz-a5518fc2c19c4cd191a5d67b55c45603>, artifacts <https://artifacts.r-hub.io/Ecfun_0.2-2.tar.gz-a5518fc2c19c4cd191a5d67b55c45603>. Have questions, suggestions or want to report a bug? Please file an issue ticket at GitHub <https://github.com/r-hub/rhub/issues>. Thank You for using the R-hub builder. (c) 2016 The R Consortium [[alternative HTML version deleted]] ______________________________________________ R-package-devel@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-package-devel
