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

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


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

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

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