``` r library(styler) cat(style_text(c("a + ", "b +", "c %>%", "d() %>%", "e()")), sep = "\n") #> a + #> b + #> c %>% #> d() %>% #> e() ```