Question

我试图以与this 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

R无限日期与文本混合

1 个答案: