Check the input of dates

check_input_dates(diagnosisDate, startDate = NULL, endDate = NULL)

Arguments

diagnosisDate	date of first diagnosis
startDate	start date of timeline event
endDate	end date of timeline event

Value

Returns a number indicating the warning

Examples

cbpManager:::check_input_dates(
    diagnosisDate = "2020-01-01", 
    startDate = "2020-02-01", 
    endDate = "2020-03-01"
) #returns 0
#> [1] 0
cbpManager:::check_input_dates(
    diagnosisDate = "2020-01-01", 
    startDate = "2019-02-01"
) #returns 2
#> [1] 2
cbpManager:::check_input_dates(
    diagnosisDate = "2020-01-01", 
    endDate = "2019-02-01"
) #returns 2
#> [1] 2
cbpManager:::check_input_dates(
    diagnosisDate = "2020-01-01", 
    startDate = "2020-03-01", 
    endDate = "2020-02-01"
) #returns 1
#> [1] 1