From 58395b86247a24c045f7f034fe7cc59f261a84d3 Mon Sep 17 00:00:00 2001 From: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Date: Tue, 8 Oct 2024 09:20:03 +0000 Subject: [PATCH] [skip style] [skip vbump] Restyle files --- R/tm_g_swimlane.R | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/R/tm_g_swimlane.R b/R/tm_g_swimlane.R index ccc2df64..55dcb42c 100644 --- a/R/tm_g_swimlane.R +++ b/R/tm_g_swimlane.R @@ -40,14 +40,14 @@ #' within({ #' library(dplyr) #' ADSL <- rADSL %>% -#' mutate(TRTDURD = as.integer(TRTEDTM - TRTSDTM) + 1) %>% -#' filter(STRATA1 == "A" & ARMCD == "ARM A") +#' mutate(TRTDURD = as.integer(TRTEDTM - TRTSDTM) + 1) %>% +#' filter(STRATA1 == "A" & ARMCD == "ARM A") #' ADRS <- rADRS %>% -#' filter(PARAMCD == "LSTASDI" & DCSREAS == "Death") %>% -#' mutate(AVALC = DCSREAS, ADY = EOSDY) %>% -#' rbind(rADRS %>% filter(PARAMCD == "OVRINV" & AVALC != "NE")) %>% -#' arrange(USUBJID) -#' }) +#' filter(PARAMCD == "LSTASDI" & DCSREAS == "Death") %>% +#' mutate(AVALC = DCSREAS, ADY = EOSDY) %>% +#' rbind(rADRS %>% filter(PARAMCD == "OVRINV" & AVALC != "NE")) %>% +#' arrange(USUBJID) +#' }) #' #' datanames(data) <- c("ADSL", "ADRS") #' join_keys(data) <- default_cdisc_join_keys[datanames(data)]