LOGAN (version 1.0.1)

VarTimebyID: Extracting the start or end time

Description

Extracting the start or end time

Usage

VarTimebyID(data, id.var, time.var, event.var, name.var.time, new.name)

Value

a data frame with `time` replaced with `new.name`. The variable `event.var` is dropped.

Arguments

data

data frame

id.var

vector of unique identification

time.var

vector with the time variable

event.var

vector with the events

name.var.time

name of the time string to filter (ex.: "START_ITEM" or "END_ITEM")

new.name

name of the output variable

Examples

# Data preparation
df <- cp025q01
df$id <- paste(df[, 1], df[, 2], df[, 3], sep = "-")
df <- m0$TrimVar(df, c("event", "event_type", "diag_state"))
df <- m0$ConcatActions(df, c(rlang::quo(event), rlang::quo(event_type)))
df <- m0$CleanActions(df, event.type, c("ACER_EVENT_" = ""))

# Function demonstration
m1$VarTimebyID(df, id, time, new.event.type, "START_ITEM", "start")