This function search for date columns in every tables and returns the latest date for each patient with the variable it comes from. Useful in survival analysis to get the right censoring time.
Usage
lastnews_table(
except = NULL,
with_ties = FALSE,
numeric_id = TRUE,
prefer = NULL,
regex = FALSE,
warn_if_future = TRUE
)Arguments
- except
the datasets/columns that should not be searched. Example: a scheduled visit for which the patient may have died before attending should not be considered.
- with_ties
in case of tie, whether to return the first
origin(FALSE) or all the origins that share this tie (TRUE).- numeric_id
set to FALSE if the patient ID column is not numeric
- prefer
preferred origins in the event of a tie. Usually the followup table.
- regex
whether to consider
exceptandpreferas regex.- warn_if_future
whether to show a warning about dates that are after the extraction date. Can also be a csv file path to save the warning as csv (see
csv_pathargument in edc_data_warn).
Examples
tm = edc_example()
#> Warning: Option "edc_lookup" has been overwritten.
load_list(tm)
lastnews_table()
#> # A tibble: 50 × 5
#> subjid last_date origin_data origin_col origin_label
#> <dbl> <dttm> <chr> <chr> <chr>
#> 1 1 2010-08-01 18:59:37 db2 date4 Date at visit 4
#> 2 2 2010-07-31 15:32:45 db2 date4 Date at visit 4
#> 3 3 2010-07-22 11:24:37 db2 date5 Date at visit 5
#> 4 4 2010-07-23 20:38:32 db3 date10 Date at visit 10
#> 5 5 2010-07-15 07:09:47 db3 date10 Date at visit 10
#> 6 6 2010-07-20 12:27:00 db3 date10 Date at visit 10
#> 7 7 2010-07-28 16:24:09 db3 date9 Date at visit 9
#> 8 8 2010-07-19 15:24:18 db3 date9 Date at visit 9
#> 9 9 2010-08-11 03:48:27 db3 date9 Date at visit 9
#> 10 10 2010-07-30 20:41:23 db3 date10 Date at visit 10
#> # ℹ 40 more rows
lastnews_table(except="db3")
#> # A tibble: 50 × 5
#> subjid last_date origin_data origin_col origin_label
#> <dbl> <dttm> <chr> <chr> <chr>
#> 1 1 2010-08-01 18:59:37 db2 date4 Date at visit 4
#> 2 2 2010-07-31 15:32:45 db2 date4 Date at visit 4
#> 3 3 2010-07-22 11:24:37 db2 date5 Date at visit 5
#> 4 4 2010-06-19 20:25:02 db2 date6 Date at visit 6
#> 5 5 2010-06-15 11:26:57 db2 date5 Date at visit 5
#> 6 6 2010-06-11 22:06:25 db2 date6 Date at visit 6
#> 7 7 2010-06-17 07:46:07 db2 date6 Date at visit 6
#> 8 8 2010-06-22 10:18:23 db2 date6 Date at visit 6
#> 9 9 2010-05-31 00:51:54 db2 date6 Date at visit 6
#> 10 10 2010-06-12 03:57:46 db2 date6 Date at visit 6
#> # ℹ 40 more rows
lastnews_table(except="db3$date9")
#> # A tibble: 50 × 5
#> subjid last_date origin_data origin_col origin_label
#> <dbl> <dttm> <chr> <chr> <chr>
#> 1 1 2010-08-01 18:59:37 db2 date4 Date at visit 4
#> 2 2 2010-07-31 15:32:45 db2 date4 Date at visit 4
#> 3 3 2010-07-22 11:24:37 db2 date5 Date at visit 5
#> 4 4 2010-07-23 20:38:32 db3 date10 Date at visit 10
#> 5 5 2010-07-15 07:09:47 db3 date10 Date at visit 10
#> 6 6 2010-07-20 12:27:00 db3 date10 Date at visit 10
#> 7 7 2010-07-12 04:59:23 db3 date10 Date at visit 10
#> 8 8 2010-07-12 19:55:50 db3 date10 Date at visit 10
#> 9 9 2010-07-17 06:26:31 db3 date8 Date at visit 8
#> 10 10 2010-07-30 20:41:23 db3 date10 Date at visit 10
#> # ℹ 40 more rows
csv_file = tempfile(fileext=".csv")
lastnews_table(prefer="date9", warn_if_future=csv_file)
#> # A tibble: 50 × 5
#> subjid last_date origin_data origin_col origin_label
#> <dbl> <dttm> <chr> <chr> <chr>
#> 1 1 2010-08-01 18:59:37 db2 date4 Date at visit 4
#> 2 2 2010-07-31 15:32:45 db2 date4 Date at visit 4
#> 3 3 2010-07-22 11:24:37 db2 date5 Date at visit 5
#> 4 4 2010-07-23 20:38:32 db3 date10 Date at visit 10
#> 5 5 2010-07-15 07:09:47 db3 date10 Date at visit 10
#> 6 6 2010-07-20 12:27:00 db3 date10 Date at visit 10
#> 7 7 2010-07-28 16:24:09 db3 date9 Date at visit 9
#> 8 8 2010-07-19 15:24:18 db3 date9 Date at visit 9
#> 9 9 2010-08-11 03:48:27 db3 date9 Date at visit 9
#> 10 10 2010-07-30 20:41:23 db3 date10 Date at visit 10
#> # ℹ 40 more rows