r - R无限日期与文本混合

Question

我试图以与此问题中描述的无限日期值相对应的方式来解释 PostgreSQL 中的无限日期。但是，我无法让代码正常工作。

df <- data.frame(dates = c("2012-08-06", "2014-05-05", 'infinity', '-infinity',as.character(Sys.Date())))

convertime <- function(x){
  time <- ifelse(
            x == 'infinity', 
              as.POSIXct(Inf, origin="1970-01-01"),
          ifelse(
            x == '-infinity', 
              as.POSIXct(-Inf, origin="1970-01-01"),
              as.POSIXct(x)
              )
          )
  return(time)
}
df$time <- convertime(df$dates)

这给出了以下错误：

Error in as.POSIXlt.character(as.character(x), ...) : 
character string is not in a standard unambiguous format

有任何想法吗？

Answer 1

ifelse构造它的每个可能的值，并且它在as.POSIXct("infinity").

相反，尝试

converttime <- function(x,o="1970-01-01",posinf="infinity",neginf="-infinity"){
  xc <- x
  xc[x%in%c(posinf,neginf)] <- NA

  d            <- as.POSIXct(xc,   origin=o)
  d[x==posinf] <- as.POSIXct(Inf,  origin=o)
  d[x==neginf] <- as.POSIXct(-Inf, origin=o)

  d
}

d <- converttime(df$dates)
d[3] > d[4] # TRUE