modo affidabile per rilevare se una colonna in un data.frame is.POSIXct

Question

R ha is.vector, is.list, is.integer, is.double, is.numeric, is.factor, is.character, ecc Perché non c'è is.POSIXct, is.POSIXlt o is.Date?

Ho bisogno di un modo affidabile per rilevare l'oggetto POSIXct e class(x)[1] == "POSIXct" sembra davvero ... sporco.

Answer 1

Io personalmente basta usare inherits come joran suggerito. Potresti usarlo per creare la tua funzione is.POSIXct.

# functions 
is.POSIXct <- function(x) inherits(x, "POSIXct") 
is.POSIXlt <- function(x) inherits(x, "POSIXlt") 
is.POSIXt <- function(x) inherits(x, "POSIXt") 
is.Date <- function(x) inherits(x, "Date") 
# data 
d <- data.frame(pct = Sys.time()) 
d$plt <- as.POSIXlt(d$pct) 
d$date <- Sys.Date() 
# checks 
sapply(d, is.POSIXct) 
# pct plt date 
# TRUE FALSE FALSE 
sapply(d, is.POSIXlt) 
# pct plt date 
# FALSE TRUE FALSE 
sapply(d, is.POSIXt) 
# pct plt date 
# TRUE TRUE FALSE 
sapply(d, is.Date) 
# pct plt date 
# FALSE FALSE TRUE 

Answer 2

Il pacchetto lubridate ha is.POSIXt, is.POSIXct, is.POSIXlt e is.Date funzioni.

Answer 3

Si può provare is(). Questo è ciò che le funzioni lubridateis.Date e is.POSIX* si basano comunque.

x <- Sys.time() 
class(x) 
# [1] "POSIXct" "POSIXt" 
is(x, "Date") 
#v[1] FALSE 
is(x, "POSIXct") 
# [1] TRUE 

y <- Sys.Date() 
class(y) 
# [1] "Date" 
is(y, "POSIXct") 
# [1] FALSE 
is(y, "Date") 
# [1] TRUE