forked from pharmaverse/admiral
-
Notifications
You must be signed in to change notification settings - Fork 0
/
derive_vars_dtm_to_dt.Rd
59 lines (56 loc) · 1.87 KB
/
derive_vars_dtm_to_dt.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/derive_vars_dtm_to_dt.R
\name{derive_vars_dtm_to_dt}
\alias{derive_vars_dtm_to_dt}
\title{Derive Date Variables from Datetime Variables}
\usage{
derive_vars_dtm_to_dt(dataset, source_vars)
}
\arguments{
\item{dataset}{Input dataset}
\item{source_vars}{A list of datetime variables created using \code{vars()} from
which dates are to be extracted}
}
\value{
A data frame containing the input dataset with the corresponding date (\code{--DT})
variable(s) of all datetime variables (\code{--DTM}) specified in \code{source_vars.}
}
\description{
This function creates date(s) as output from datetime variable(s)
}
\examples{
library(tibble)
library(dplyr, warn.conflicts = FALSE)
library(lubridate)
adcm <- tribble(
~USUBJID, ~TRTSDTM, ~ASTDTM, ~AENDTM,
"PAT01", "2012-02-25 23:00:00", "2012-02-28 19:00:00", "2012-02-25 23:00:00",
"PAT01", NA, "2012-02-28 19:00:00", NA,
"PAT01", "2017-02-25 23:00:00", "2013-02-25 19:00:00", "2014-02-25 19:00:00",
"PAT01", "2017-02-25 16:00:00", "2017-02-25 14:00:00", "2017-03-25 23:00:00",
"PAT01", "2017-02-25 16:00:00", "2017-02-25 14:00:00", "2017-04-29 14:00:00",
) \%>\%
mutate(
TRTSDTM = as_datetime(TRTSDTM),
ASTDTM = as_datetime(ASTDTM),
AENDTM = as_datetime(AENDTM)
)
adcm \%>\%
derive_vars_dtm_to_dt(vars(TRTSDTM, ASTDTM, AENDTM)) \%>\%
select(USUBJID, starts_with("TRT"), starts_with("AST"), starts_with("AEN"))
}
\seealso{
Date/Time Derivation Functions that returns variable appended to dataset:
\code{\link{derive_var_trtdurd}()},
\code{\link{derive_vars_dtm_to_tm}()},
\code{\link{derive_vars_dtm}()},
\code{\link{derive_vars_dt}()},
\code{\link{derive_vars_duration}()},
\code{\link{derive_vars_dy}()}
}
\author{
Teckla Akinyi
}
\concept{der_date_time}
\keyword{der_date_time}
\keyword{der_gen}