a <- #
  b() %>%
  c() %>%
  d()

a <- #
  b() %>%
  c() %>%
  d()


a <-
  b() %>%
  c() %>%
  d()

a <- c %>%
  b() %>%
  c() %>%
  d()

a <-
  b() %>% #
  c() %>%
  d() # d