Parto de unos datos
datos <- read.table(text = '
fecha edad
01/05/2020 20
02/01/2019 33
03/05/2017 19
04/05/2018 3
09/05/2020 25
', header = TRUE, stringsAsFactors = FALSE)
datos$fecha <- as.Date(datos$fecha, format="%d/%m/%Y")
Quiero comparar la fecha de los datos con una fecha de referencia.
fecha_referencia <- as.Date("25/11/2019", format="%d/%m/%Y")
Quiero que me avise si hay una fecha menor al de referencia. Algo así como
ifelse (datos$fecha < fecha_referencia , "Menor a la fecha","Mayor a la fecha")
Pero esto da 5 mensajes, uno por caso. Busco que avise una sola vez. En plan:
"Hay fechas anteriores a la de referencia, son las que están en la posición"
which(datos$fecha < fecha_referencia)
o si no hubiera ninguna:
"Todas las fechas son posteriores a la fecha de referencia"
Lo que busco es que el mensaje solo salga una vez.