Last updated on 2023-05-31 08:57:53 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.3-2 | 21.13 | 177.60 | 198.73 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.3-2 | 14.54 | 133.24 | 147.78 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.3-2 | 242.77 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.3-2 | 265.31 | OK | |||
| r-devel-windows-x86_64 | 0.3-2 | 16.00 | 165.00 | 181.00 | OK | |
| r-patched-linux-x86_64 | 0.3-2 | 16.86 | 170.00 | 186.86 | OK | |
| r-release-linux-x86_64 | 0.3-2 | 11.42 | 168.15 | 179.57 | OK | |
| r-release-macos-arm64 | 0.3-2 | 72.00 | ERROR | |||
| r-release-macos-x86_64 | 0.3-2 | 142.00 | ERROR | |||
| r-release-windows-x86_64 | 0.3-2 | 22.00 | 205.00 | 227.00 | OK | |
| r-oldrel-macos-arm64 | 0.3-2 | 68.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.3-2 | 86.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.3-2 | 22.00 | 204.00 | 226.00 | OK |
Version: 0.3-2
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))
[1] "1970-01-01" "1971-01-01"
> (xPOSIX <- as.POSIXct(xDate)+c(1, 99))
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> 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='%Y-%m-%d'),
+ xPOSIX=as.character(xPOSIX,
+ format='%Y-%m-%d %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 = "%Y-%m-%d %H:%M:%S") :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
yr q1 duh dol pct xDate xPOSIX xMSdate
1 1948 1,234 NA $1,234 1% 1970-01-01 1970-01-01 00:00:01 2
2 1947 (1) NA 2% 1971-01-01 1971-01-01 00:01:39 3
junk
1 this is
2 junk
>
> # 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.4 <- asNumericChar('1969-12-31 18:00:01',
+ class.='POSIXct'))
[1] "1969-12-31 06:00:01 UTC"
>
> (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)])
yr q1 dol pct xMSdate
1 1948 1234 1234 0.01 2
2 1947 NA NA 0.02 3
> (nF2 <- asNumericDF(fakeF1, Dates=6,
+ MSdate='xMSdate',
+ ignore=c('junk', 'xPOSIX'),
+ format.='%Y-%m-%d'))
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])
yr q1 dol pct xDate xPOSIX xMSdate junk
1 1948 1234 1234 0.01 1970-01-01 1970-01-01 00:00:01 1900-01-02 this is
2 1947 NA NA 0.02 1971-01-01 1971-01-01 00:01:39 1900-01-03 junk
> # 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)
>
> ##
> ## 2. as.Date default example
> ##
> xD <- asNumericChar(
+ as.character(xDate), class.='Date')
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(xDate, xD)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 3. as.POSIXct default example
> ##
> xPOSIX
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> (xPOSIXch <- as.character(xPOSIX))
[1] "1970-01-01 00:00:01" "1971-01-01 00:01:39"
> (xP <- asNumericChar(xPOSIXch, class.='POSIXct'))
[1] "1969-12-31 12:00:01 UTC" "1970-12-31 12:01:39 UTC"
> attr(xPOSIX, 'tzone')
[1] "UTC"
> attr(xP, 'tzone')
[1] "UTC"
> # R-Devel after 4.2.1 breaks earlier code; fix
> if(is.null(attr(xPOSIX, 'tzone')))
+ attr(xPOSIX, 'tzone') <- attr(xP, 'tzone')
> (dP <- difftime(xPOSIX, xP, units='secs'))
Time differences in secs
[1] 43200 43200
> (madP <- max(abs(as.numeric(dP))))
[1] 43200
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ {
+ #all.equal(xPOSIX, xP)
+ # As of 2022-10-06 I don't know how to write code
+ # that will get a consistent answer with
+ # different version R-devel with differences
+ # less than an hour
+ if(madP>3600){
+ stop('Discrepancy betw fn and manual comp ',
+ 'too large.')
+ }
+ TRUE
+ }
+ ## Don't show:
+ )
Error in stopifnot({ : Discrepancy betw fn and manual comp too large.
Execution halted
Flavor: r-release-macos-arm64
Version: 0.3-2
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))
[1] "1970-01-01" "1971-01-01"
> (xPOSIX <- as.POSIXct(xDate)+c(1, 99))
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> 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='%Y-%m-%d'),
+ xPOSIX=as.character(xPOSIX,
+ format='%Y-%m-%d %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 = "%Y-%m-%d %H:%M:%S") :
as.character(td, ..) no longer obeys a 'format' argument; use format(td, ..) ?
yr q1 duh dol pct xDate xPOSIX xMSdate
1 1948 1,234 NA $1,234 1% 1970-01-01 1970-01-01 00:00:01 2
2 1947 (1) NA 2% 1971-01-01 1971-01-01 00:01:39 3
junk
1 this is
2 junk
>
> # 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.4 <- asNumericChar('1969-12-31 18:00:01',
+ class.='POSIXct'))
[1] "1969-12-31 23:00:01 UTC"
>
> (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)])
yr q1 dol pct xMSdate
1 1948 1234 1234 0.01 2
2 1947 NA NA 0.02 3
> (nF2 <- asNumericDF(fakeF1, Dates=6,
+ MSdate='xMSdate',
+ ignore=c('junk', 'xPOSIX'),
+ format.='%Y-%m-%d'))
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])
yr q1 dol pct xDate xPOSIX xMSdate junk
1 1948 1234 1234 0.01 1970-01-01 1970-01-01 00:00:01 1900-01-02 this is
2 1947 NA NA 0.02 1971-01-01 1971-01-01 00:01:39 1900-01-03 junk
> # 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)
>
> ##
> ## 2. as.Date default example
> ##
> xD <- asNumericChar(
+ as.character(xDate), class.='Date')
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ all.equal(xDate, xD)
+ ## Don't show:
+ )
> ## End(Don't show)
>
> ##
> ## 3. as.POSIXct default example
> ##
> xPOSIX
[1] "1970-01-01 00:00:01 UTC" "1971-01-01 00:01:39 UTC"
> (xPOSIXch <- as.character(xPOSIX))
[1] "1970-01-01 00:00:01" "1971-01-01 00:01:39"
> (xP <- asNumericChar(xPOSIXch, class.='POSIXct'))
[1] "1970-01-01 05:00:01 UTC" "1971-01-01 05:01:39 UTC"
> attr(xPOSIX, 'tzone')
[1] "UTC"
> attr(xP, 'tzone')
[1] "UTC"
> # R-Devel after 4.2.1 breaks earlier code; fix
> if(is.null(attr(xPOSIX, 'tzone')))
+ attr(xPOSIX, 'tzone') <- attr(xP, 'tzone')
> (dP <- difftime(xPOSIX, xP, units='secs'))
Time differences in secs
[1] -18000 -18000
> (madP <- max(abs(as.numeric(dP))))
[1] 18000
> ## Don't show:
> stopifnot(
+ ## End(Don't show)
+ {
+ #all.equal(xPOSIX, xP)
+ # As of 2022-10-06 I don't know how to write code
+ # that will get a consistent answer with
+ # different version R-devel with differences
+ # less than an hour
+ if(madP>3600){
+ stop('Discrepancy betw fn and manual comp ',
+ 'too large.')
+ }
+ TRUE
+ }
+ ## Don't show:
+ )
Error in stopifnot({ : Discrepancy betw fn and manual comp too large.
Execution halted
Flavor: r-release-macos-x86_64