Undesired result

On 17/02/2021 9:50 a.m., Val wrote:

HI All,

I am reading a data file which has different date formats. I wanted to
standardize to one format and used  a library anytime but got
undesired results as shown below. It gave me year 2093 instead of 1993


library(anytime)
DFX<-read.table(text="name ddate
   A  19-10-02
   D  11/19/2006
   F  9/9/2011
   G1  12/29/2010
   AA   10/18/93 ",header=TRUE)
     getFormats()
     addFormats(c("%d-%m-%y"))
     addFormats(c("%m-%d-%y"))
     addFormats(c("%Y/%d/%m"))
     addFormats(c("%m/%d/%y"))

DFX$anew=anydate(DFX$ddate)

Output
  name      ddate       anew
1    A   19-10-02 2002-10-19
2    D 11/19/2006 2020-11-19
3    F   9/9/2011 2011-09-09
4   G1 12/29/2010 2020-12-29
5   AA   10/18/93 2093-10-18

The problem is in the last row. It should be  1993-10-18 instead of 2093-10-18

How do I correct this?

This looks a little tricky.  The basic idea is that the %y format has to
guess at the century, but the guess depends on things specific to your
system.  So what would be nice is to say "two digit dates should be
assumed to fall between 1922 and 2021", but there's no way to do that
directly.

What you could do is recognize when you have a two digit year, and then
force the result into the range you want.  Here's a function that does
that, but it's not really tested much at all, so be careful if you use
it.  (One thing:  I recommend the 'useR = TRUE' option to anydate(); it
worked better in my tests than the default.)

adjustCentury <- function(inputString,
                           outputDate = anydate(inputString, useR = TRUE),
                           start = "1922-01-01") {

   start <- as.Date(start)

   twodigityear <- !grepl("[[:digit:]]{4}", inputString)

   while (length(bad <- which(twodigityear & outputDate < start))) {
     for (i in bad) {
       longdate <- as.POSIXlt(outputDate[i])
       longdate$year <- longdate$year + 100
       outputDate[i] <- as.Date(longdate)
     }
   }
   longdate <- as.POSIXlt(start)
   longdate$year <- longdate$year + 100
   finish <- as.Date(longdate)

   while (length(bad <- which(twodigityear & outputDate >= finish))) {
     for (i in bad) {
       longdate <- as.POSIXlt(outputDate[i])
       longdate$year <- longdate$year - 100
       outputDate[i] <- as.Date(longdate)
     }
   }
   outputDate
}

library(anytime)
DFX<-read.table(text="name ddate
   A  19-10-02
   D  11/19/2006
   F  9/9/2011
   G1  12/29/2010
   AA   10/18/93
   BB   10/18/1893
   CC   10/18/2093",header=TRUE)

addFormats(c("%d-%m-%y"))
addFormats(c("%m-%d-%y"))
addFormats(c("%Y/%d/%m"))
addFormats(c("%m/%d/%y"))

DFX$anew=adjustCentury(DFX$ddate, start = "1921-01-01")
DFX
#>   name      ddate       anew
#> 1    A   19-10-02 2019-10-02
#> 2    D 11/19/2006 2006-11-19
#> 3    F   9/9/2011 2011-09-09
#> 4   G1 12/29/2010 2010-12-29
#> 5   AA   10/18/93 1993-10-18
#> 6   BB 10/18/1893 1893-10-18
#> 7   CC 10/18/2093 2093-10-18