Yo entiendo que lo que quiere es saber cómo hacer el 'ifelse' para que
no le devuelva un vector numérico porque para transformarlo podría hacer
simplemente 'as_date(fechas2)'.
El problema yo creo que es por tema coerción con el 'NA' (sumado al
comportamiento de 'ifelse'). Estaba buscando alternativas como
NA_character_, NA_numeric_, etc. pero no encuentro para fecha, así que,
se podría hacer algo como:
fechas2 <- if_else(fechas > "2016-12-31", as_date(NA), fechas)
Un saludo
Álvaro
El 13/02/18 a las 01:04, Carlos Ortega escribió:
Hola,
Esta es una forma...
library(lubridate)
library(dplyr)
fechas <- c("2016-07-15", "2016-10-12", "2017-02-11")
fechas_new <- ymd(fechas)
res_out <- ifelse(year(fechas_new) > 2016, NA, fechas_new)
res_out
[1] 16997 17086 NA
class(res_out) <- class(fechas_new)
res_out
[1] "2016-07-15" "2016-10-12" NA
No lo había visto hasta ahora, es un caso que se cuenta en la ayuda de
"ifelse()" con un ejemplo...
Saludos,
Carlos Ortega
www.qualityexcellence.es
2018-02-13 0:54 GMT+01:00 patricio fuenmayor <patricio.fuenma...@gmail.com>:
hola Patricio, usa:
dplyr::if_else
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es