derive_vars_dtm_to_tm: Derive Time Variables from Datetime Variables

In epijim/admiral: ADaM in R Asset Library

Description

This function creates time variable(s) as output from datetime variable(s)

Usage

derive_vars_dtm_to_tm(dataset, source_vars)

Arguments

dataset	Input dataset
source_vars	A list of datetime variables created using vars() from which time is to be extracted

Details

The names of the newly added variables are automatically set by replacing the --DTM suffix of the source_vars with --TM. The --TM variables are created using the hms package.

Value

A data frame containing the input dataset with the corresponding time (--TM) variable(s) of all datetime variables (--DTM) specified in source_vars with the correct name.

Author(s)

Teckla Akinyi

Examples

library(dplyr, warn.conflicts = FALSE)
library(lubridate)

adcm <- tibble::tribble(
 ~USUBJID, ~TRTSDTM,               ~ASTDTM,               ~AENDTM,
 "PAT01",  "2012-02-25 23:41:10", "2012-02-28 19:03:00", "2013-02-25 23:32:16",
 "PAT01",  "",                    "2012-02-28 19:00:00", "",
 "PAT01",  "2017-02-25 23:00:02", "2013-02-25 19:00:15", "2014-02-25 19:00:56",
 "PAT01",  "2017-02-25 16:00:00", "2017-02-25 14:25:00", "2017-03-25 23:00:00",
 "PAT01",  "2017-02-25 16:05:17", "2017-02-25 14:20:00", "2018-04-29 14:06:45",
 ) %>%
 mutate(
   TRTSDTM = as_datetime(TRTSDTM),
   ASTDTM = as_datetime(ASTDTM),
   AENDTM = as_datetime(AENDTM)
 )

adcm %>%
  derive_vars_dtm_to_tm(vars(TRTSDTM)) %>%
  select(USUBJID, starts_with("TRT"), everything())

adcm %>%
  derive_vars_dtm_to_tm(vars(TRTSDTM, ASTDTM, AENDTM)) %>%
  select(USUBJID, starts_with("TRT"), starts_with("AS"), starts_with("AE"))

epijim/admiral documentation built on Feb. 13, 2022, 12:15 a.m.