CRAN Package Check Results for Package Ecfun

Last updated on 2022-10-05 21:53:32 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.3-0 18.50 167.76 186.26 ERROR
r-devel-linux-x86_64-debian-gcc 0.3-0 15.29 124.16 139.45 ERROR
r-devel-linux-x86_64-fedora-clang 0.3-1 237.33 ERROR
r-devel-linux-x86_64-fedora-gcc 0.3-1 240.22 ERROR
r-devel-windows-x86_64 0.3-0 47.00 212.00 259.00 ERROR
r-patched-linux-x86_64 0.3-0 17.49 156.75 174.24 OK
r-release-linux-x86_64 0.3-0 13.22 155.62 168.84 OK
r-release-macos-arm64 0.3-0 49.00 OK
r-release-macos-x86_64 0.3-0 85.00 OK
r-release-windows-x86_64 0.3-0 47.00 228.00 275.00 OK
r-oldrel-macos-arm64 0.3-0 61.00 OK
r-oldrel-macos-x86_64 0.3-0 87.00 OK
r-oldrel-windows-ix86+x86_64 0.3-1 39.00 212.00 251.00 OK

Check Details

Version: 0.3-0
Check: examples
Result: ERROR
    Running examples in 'Ecfun-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: asNumericDF
    > ### Title: Coerce to numeric dropping commas and info after a blank
    > ### Aliases: asNumericChar asNumericDF
    > ### Keywords: manip
    >
    > ### ** Examples
    >
    > ##
    > ## 1. an example
    > ##
    > xDate <- as.Date('1970-01-01')+c(0, 365)
    > xPOSIX <- as.POSIXct(xDate)+c(1, 99)
    > xMSdate <- as.Date(1,
    + as.Date('1899-12-31'))+1:2
    > fakeF1 <- data.frame(yr=c('1948',
    + '1947 (1)'),
    + q1=c(' 1,234 ', ''), duh=rep(NA, 2),
    + dol=c('$1,234', ''),
    + pct=c('1%', '2%'),
    + xDate=as.character(xDate,
    + format='%m-%d-%Y'),
    + xPOSIX=as.character(xPOSIX,
    + format='%m-%d-%Y %H:%M:%S'),
    + xMSdate=2:3, junk=c('this is',
    + 'junk'))
    Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
     as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
    Warning in as.character.POSIXt(xPOSIX, format = "%m-%d-%Y %H:%M:%S") :
     as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
    >
    > # This converts the last 3 columns to NAs and drops them:
    >
    > str(nF1.1 <- asNumericChar(fakeF1$yr))
     num [1:2] 1948 1947
    > str(nF1.2 <- asNumericChar(fakeF1$q1))
     num [1:2] 1234 NA
    > str(nF1.3 <- asNumericChar(fakeF1$duh))
     logi [1:2] NA NA
    >
    > nF1 <- asNumericDF(fakeF1)
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(q1[2])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(dol[2])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(xDate[c(1, 2)])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(xPOSIX[c(1, 2)])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(junk[c(1, 2)])
    > nF2 <- asNumericDF(fakeF1, Dates=6,
    + MSdate='xMSdate',
    + ignore=c('junk', 'xPOSIX'),
    + format.='%m-%d-%Y')
    Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
     NAs introduced by coercion in asNumericChar(q1[2])
    Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
     NAs introduced by coercion in asNumericChar(dol[2])
    > nF3 <- asNumericDF(nF2, POSIX='xPOSIX',
    + ignore=c(5,7:8),
    + format.='%m-%d-%Y %H:%M:%S')
    >
    > # check
    > nF1. <- data.frame(yr=
    + asNumericChar(fakeF1$yr),
    + q1=asNumericChar(fakeF1$q1),
    + dol=asNumericChar(fakeF1$dol),
    + pct=c(.01, .02), xMSdate=2:3)
    >
    > nF1c <- data.frame(yr=1948:1947,
    + q1=c(1234, NA), dol=c(1234, NA),
    + pct=c(.01, .02), xMSdate=2:3)
    >
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF1, nF1.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF1., nF1c)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > nF3c <- data.frame(yr=1948:1947,
    + q1=c(1234, NA), dol=c(1234, NA),
    + pct=c(.01, .02), xDate=xDate,
    + xPOSIX=xPOSIX, xMSdate=xMSdate,
    + junk=fakeF1$junk)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF3, nF3c)
    + ## Don't show:
    + )
    Error: nF3 and nF3c are not equal:
     Component "xDate": 'is.NA' value mismatch: 0 in current 2 in target
     Component "xPOSIX": 'is.NA' value mismatch: 0 in current 2 in target
    Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc

Version: 0.3-1
Check: examples
Result: ERROR
    Running examples in ‘Ecfun-Ex.R’ failed
    The error most likely occurred in:
    
    > ### Name: Interp
    > ### Title: Interpolate between numbers or numbers of characters
    > ### Aliases: Interp Interp.default InterpChkArgs InterpChar InterpNum
    > ### Keywords: manip
    >
    > ### ** Examples
    >
    > ##
    > ## 1. numerics
    > ##
    > # 1.1. standard
    > xNum <- interpChar(1:3, 4:5, (0:3)/4)
    Warning in do.call(action[2], list(Msi[1], ": ", Msi[2])) :
     incompatible: in interpChar.default:1:3 length(.proportion) = 4 is not a multiple of length(x) = 3
    Warning in do.call(action[2], list(Msi[1], ": ", Msi[2])) :
     incompatible: in interpChar.default:1:3 length(x) = 3 is not a multiple of length(y) = 2
    Warning in x * (1 - .proportion) :
     longer object length is not a multiple of shorter object length
    > # answer
    > xN. <- c(1, 2.75, 3.5, 4)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(xNum, xN.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > # 1.2. with x but not y:
    > # return that vector with a warning
    > ## Don't show:
    > InterpChkArgs(1:4, p=.5) # $xout 1:4 OK
    $xout
    [1] 1 2 3 4
    
    > ## End(Don't show)
    > xN1 <- Interp(1:4, p=.5)
    > # answer
    > xN1. <- 1:4
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(xN1, xN1.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 2. Single character vector
    > ##
    > ## Don't show:
    > argChk.x.3 <- InterpChkArgs(c('a', 'bc', 'def'),
    + p=0.3)
    > argC.5 <- list(xout=c('a', 'bc', 'def'))
    > all.equal(argChk.x.3, argC.5)
    [1] TRUE
    >
    > argChk.x0.3 <- InterpChkArgs(c('a', 'bc', 'def'),
    + character(0), p=0.3)
    > all.equal(argChk.x0.3, argC.5)
    [1] TRUE
    >
    > argChk.3 <- InterpChkArgs(c('a', 'bc', 'def'),
    + character(1), p=0.3)
    > argC.3 <- list(algorithm="Character",
    + x=c("a", "bc", "def"), y=character(3),
    + proportion=rep(.3, 3), pLength1=TRUE,
    + raw=FALSE, outClass=NULL)
    > all.equal(argChk.3, argC.3)
    [1] TRUE
    >
    > argChk.3p <- InterpChkArgs(c('a', 'bc', 'def'),
    + character(1), p=rep(0.3, 3))
    > argC.3p <- list(algorithm="Character",
    + x=c("a", "bc", "def"), y=character(3),
    + proportion=rep(.3, 3), pLength1=FALSE,
    + raw=FALSE, outClass=NULL)
    > all.equal(argChk.3p, argC.3p)
    [1] TRUE
    > ## End(Don't show)
    >
    > i.5 <- Interp(c('a', 'bc', 'def'), character(0), p=0.3)
    > # with y = NULL or character(0),
    > # Interp returns x
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(i.5, c('a', 'bc', 'def'))
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > i.5b <- Interp('', c('a', 'bc', 'def'), p=0.3)
    > # Cumulative characters (length(proportion)=1):
    > # 0.3*(total 6 characters) = 1.2 characters
    > i.5. <- c('a', 'b', '')
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(i.5b, i.5.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 3. Reverse character example
    > ##
    > i.5c <- Interp(c('a', 'bc', 'def'), '', 0.3)
    > # check: 0.7*(total 6 characers) = 4.2 characters
    > i.5c. <- c('a', 'bc', 'd')
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(i.5c, i.5c.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 4. More complicated example
    > ##
    > xCh <- Interp('', c('Do it', 'with R.'),
    + c(0, .5, .9))
    Warning in do.call(action[2], list(Msi[1], ": ", Msi[2])) :
     incompatible: in compareLengths: length(y) = 3 is not a multiple of length(x) = 2
    > # answer
    > xCh. <- c('', 'with', 'Do i')
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(xCh, xCh.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    > ##
    > ## 5. Still more complicated
    > ##
    > xC2 <- Interp(c('a', 'fabulous', 'bug'),
    + c('bigger or', 'just', 'big'),
    + c(.3, .3, 1) )
    > x.y.longer <- c('bigger or', 'fabulous', 'big')
    > # use y with ties
    > # nch smaller 1 4 3
    > # nch larger 9 8 3
    > # d.char 8, 4, 0
    > # prop .3, .7, 1
    > # prop*d.char 2.4, 2.8, 0
    > # smaller+p*d 3, 7, 3
    > xC2. <- c('big', 'fabulou', 'big')
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(xC2, xC2.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 6. with one NULL
    > ##
    > null1 <- Interp(NULL, 1, .3)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(null1, 1)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > null2 <- Interp('abc', NULL, .3)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(null2, 'abc')
    + ## Don't show:
    + )
    > ## End(Don't show)
    > ##
    > ## 7. length=0
    > ##
    > log0 <- interpChar(logical(0), 2, .6)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(log0, 1.2)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 8. Date
    > ##
    > Jan1.1980 <- as.Date('1980-01-01')
    >
    > Jan1.1972i <- Interp(0, Jan1.1980, .2)
    > # check
    > Jan1.1972 <- as.Date('1972-01-01')
    >
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(Jan1.1972, round(Jan1.1972i))
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > ##
    > ## 9. POSIXct
    > ##
    > Jan1.1980c <- as.POSIXct(Jan1.1980)
    >
    > Jan1.1972ci <- Interp(0, Jan1.1980c, .2)
    Error in if (!is.na(argsChk$outClass)) { : the condition has length > 1
    Calls: Interp -> Interp.default -> InterpNum
    Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc

Version: 0.3-0
Check: examples
Result: ERROR
    Running examples in 'Ecfun-Ex.R' failed
    The error most likely occurred in:
    
    > ### Name: asNumericDF
    > ### Title: Coerce to numeric dropping commas and info after a blank
    > ### Aliases: asNumericChar asNumericDF
    > ### Keywords: manip
    >
    > ### ** Examples
    >
    > ##
    > ## 1. an example
    > ##
    > xDate <- as.Date('1970-01-01')+c(0, 365)
    > xPOSIX <- as.POSIXct(xDate)+c(1, 99)
    > xMSdate <- as.Date(1,
    + as.Date('1899-12-31'))+1:2
    > fakeF1 <- data.frame(yr=c('1948',
    + '1947 (1)'),
    + q1=c(' 1,234 ', ''), duh=rep(NA, 2),
    + dol=c('$1,234', ''),
    + pct=c('1%', '2%'),
    + xDate=as.character(xDate,
    + format='%m-%d-%Y'),
    + xPOSIX=as.character(xPOSIX,
    + format='%m-%d-%Y %H:%M:%S'),
    + xMSdate=2:3, junk=c('this is',
    + 'junk'))
    Warning in as.character.POSIXt(as.POSIXlt(x), ...) :
     as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
    Warning in as.character.POSIXt(xPOSIX, format = "%m-%d-%Y %H:%M:%S") :
     as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
    >
    > # This converts the last 3 columns to NAs and drops them:
    >
    > str(nF1.1 <- asNumericChar(fakeF1$yr))
     num [1:2] 1948 1947
    > str(nF1.2 <- asNumericChar(fakeF1$q1))
     num [1:2] 1234 NA
    > str(nF1.3 <- asNumericChar(fakeF1$duh))
     logi [1:2] NA NA
    >
    > nF1 <- asNumericDF(fakeF1)
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(q1[2])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(dol[2])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(xDate[c(1, 2)])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(xPOSIX[c(1, 2)])
    Warning in asNumericDF(fakeF1) :
     NAs introduced by coercion in asNumericChar(junk[c(1, 2)])
    > nF2 <- asNumericDF(fakeF1, Dates=6,
    + MSdate='xMSdate',
    + ignore=c('junk', 'xPOSIX'),
    + format.='%m-%d-%Y')
    Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
     NAs introduced by coercion in asNumericChar(q1[2])
    Warning in asNumericDF(fakeF1, Dates = 6, MSdate = "xMSdate", ignore = c("junk", :
     NAs introduced by coercion in asNumericChar(dol[2])
    > nF3 <- asNumericDF(nF2, POSIX='xPOSIX',
    + ignore=c(5,7:8),
    + format.='%m-%d-%Y %H:%M:%S')
    >
    > # check
    > nF1. <- data.frame(yr=
    + asNumericChar(fakeF1$yr),
    + q1=asNumericChar(fakeF1$q1),
    + dol=asNumericChar(fakeF1$dol),
    + pct=c(.01, .02), xMSdate=2:3)
    >
    > nF1c <- data.frame(yr=1948:1947,
    + q1=c(1234, NA), dol=c(1234, NA),
    + pct=c(.01, .02), xMSdate=2:3)
    >
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF1, nF1.)
    + ## Don't show:
    + )
    > ## End(Don't show)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF1., nF1c)
    + ## Don't show:
    + )
    > ## End(Don't show)
    >
    > nF3c <- data.frame(yr=1948:1947,
    + q1=c(1234, NA), dol=c(1234, NA),
    + pct=c(.01, .02), xDate=xDate,
    + xPOSIX=xPOSIX, xMSdate=xMSdate,
    + junk=fakeF1$junk)
    > ## Don't show:
    > stopifnot(
    + ## End(Don't show)
    + all.equal(nF3, nF3c)
    + ## Don't show:
    + )
    Error: nF3 and nF3c are not equal:
     Component "xDate": 'is.NA' value mismatch: 0 in current 2 in target
     Component "xPOSIX": 'is.NA' value mismatch: 0 in current 2 in target
    Execution halted
Flavor: r-devel-windows-x86_64