[skip style] [skip vbump] Restyle files

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)]