Reorder Columns Based on Assessment Dates

This function reorders all columns in a dataframe after the third column based on their corresponding assessment dates.

Usage

reorder_columns_based_on_date(df)

Arguments

df

A dataframe containing the data to be reordered. The first three columns should be `embrace_id`, `side_effect`, and `Diagnosis & Treatment`. The subsequent columns should be named with time points (e.g., `3m`, `6m`).

Value

A dataframe with the columns reordered based on the assessment dates.

Details

The function assumes that there is a row in the dataframe where the `side_effect` column is "assessment_date" and the subsequent columns contain the corresponding assessment dates. The function extracts these dates, sorts the columns accordingly, and returns the reordered dataframe.

Examples

if (FALSE) { # \dontrun{
df <- tibble::tibble(
  embrace_id = c("AAR2005", "AAR2005"),
  side_effect = c("general_comments", "assessment_date"),
  `Diagnosis & Treatment` = c(NA, NA),
  `3m` = c(NA, "2017-01-01"),
  `6m` = c(NA, "2017-07-01"),
  `9m` = c(NA, "2017-10-01")
)
reordered_df <- reorder_columns_based_on_date(df)
} # }