Berechnen Difftzeit als Sys.Date wenn Feld ist NA in R

Question

Ganz einfach möchte ich Tenure berechnen, wenn ein Mitarbeiter bezeichnet wird, dann möchte ich das neue Feld Term zurückgeben. Date - Job.Entry.Date zur Berechnung der Amtszeit. Andernfalls, wenn der Mitarbeiter aktiv ist, möchte ich, dass das neue Feld Sys.Date - Job.Entry.Date zurückgibt.

Mit dem folgenden Code:

jobentrydat_alltechs$Tenure <-if (jobentrydat_alltechs$Term.Date == is.na) { 
    return (difftime(Sys.Date(), jobentrydat_alltechs$Job.Entry.Date, units = c("days"))) 
} else if (jobentrydat_alltechs$Term.Date != is.na) { 
    return (difftime(jobentrydat_alltechs$Term.Date, jobentrydat_alltechs$Job.Entry.Date, units = c("days"))) 
} 

Ich erhalte die folgenden Fehler

Fehler in ==.default (jobentrydat_alltechs $ Term.Date, is.na):
Vergleich (1) nur für Atom- und Listentypen möglich

Answer 1

Sie möchten ifelse anstelle von if, wie es vektorisiert ist, und auch is.na ist eine Funktion, kein Wert, mit dem verglichen werden soll.

jobentrydat_alltechs$Tenure <- ifelse(is.na(jobentrydat_alltechs$Term.Date), 
    difftime(Sys.Date(), jobentrydat_alltechs$Job.Entry.Date, units = c("days")), 
    difftime(jobentrydat_alltechs$Term.Date, jobentrydat_alltechs$Job.Entry.Date, units = c("days")))