Join two waiting list

Take two waiting list and sorting in date order

Usage

wl_join(wl_1, wl_2, referral_index = 1)

Arguments

wl_1

a waiting list: dataframe consisting addition and removal dates

wl_2

a waiting list: dataframe consisting addition and removal dates

referral_index

the column index where referrals are listed

Value

updated_list a new waiting list

Examples

referrals <- c.Date("2024-01-01","2024-01-04","2024-01-10","2024-01-16")
removals <- c.Date("2024-01-08",NA,NA,NA)
wl_1 <- data.frame("referral" = referrals ,"removal" = removals )

referrals <- c.Date("2024-01-04","2024-01-05","2024-01-16","2024-01-25")
removals <- c.Date("2024-01-09",NA,"2024-01-19",NA)
wl_2 <- data.frame("referral" = referrals ,"removal" = removals )
wl_join(wl_1,wl_2)
#>     referral    removal
#> 1 2024-01-01 2024-01-08
#> 2 2024-01-04       <NA>
#> 3 2024-01-04 2024-01-09
#> 4 2024-01-05       <NA>
#> 5 2024-01-10       <NA>
#> 6 2024-01-16       <NA>
#> 7 2024-01-16 2024-01-19
#> 8 2024-01-25       <NA>