tests/testthat/line_breaks_and_other/pipe-line-breaks-in.R

In r-lib/styler: Non-Invasive Pretty Printing of R Code

c(a %>% b)

c(a %>% b())

c(a + b %>% c)

c(
  a %>% b)

c(a %>% b()
)

c(a %>% b() # 33
)

c(
  a + b %>% c
  )

c(
  a + b %>%
    c)

c(a + b %>%
    c)

c(
  a + b %>% # 654
    c
)

c( # rr
  a + b %>%
    c
)

c(
  a +
    b %>% c
)

c(a +
    b %>% c
)

a %>% b(
)

a %>% b(
) %>% q

a %>%
  b()

a %>% b() %>% c

# short pipes < 2 can stay on one line
a %>% b()

fun(x,
  a %>% b)

fun(x,
    gg = a %>% b,
    tt %>% q)

fun(x, gg = a %>% b, tt %>% q)

z = a %>% b()

fun( s = g(x),
    gg = a(n == 2) %>% b,
    tt %>% q(r = 3))

# FIXME closing brace could go on ntext line. Alternative: remove lin breaks completely.
blew(x %>%

       c(), y = 2)

# FIXME closing brace could go on ntext line. Alternative: move c() up.
blew(y = 2, x %>%
       c())


{a %>% c +1}


b %>%
  f() %>% # never move comment to next line as it can be styler: off or nolint
  k() %>%
  x()


# line break before { inserted inside and outside function calls
c(
data %>%
  filter(bar) %>% {
    cor(.$col1, .$col2, use = "complete.obs")
  }
)

data %>%
  filter(bar) %>% {
    cor(.$col1, .$col2, use = "complete.obs")
  }

# line break before { kept inside and outside function calls
c(
  data %>%
    filter(bar) %>%
    {
      cor(.$col1, .$col2, use = "complete.obs")
    }
)

data %>%
  filter(bar) %>%
  {
    cor(.$col1, .$col2, use = "complete.obs")
  }

# redundant blank lines removed
c(
  data %>%
    filter(bar) %>%

    {
      cor(.$col1, .$col2, use = "complete.obs")
    }
)

data %>%
  filter(bar) %>%

  {
    cor(.$col1, .$col2, use = "complete.obs")
  }

# blank lines kept when around comment
c(
  data %>%
    filter(bar) %>%
    # comment

    {
      cor(.$col1, .$col2, use = "complete.obs")
    }
)

data %>%
  filter(bar) %>%
  # comment

  {
    cor(.$col1, .$col2, use = "complete.obs")
  }