divide alternating rows in table in r

main.r
library(dplyr)
library(tidyr)

# create example table
df <- data.frame(a = c(1, 2, 3, 4, 5, 6),
                 b = c("A", "B", "C", "D", "E", "F"))

# divide alternating rows into two separate tables
df1 <- df %>% 
  filter(row_number() %% 2 != 0) %>%  # select odd rows
  select(a, b)                       # select specific columns

df2 <- df %>% 
  filter(row_number() %% 2 == 0) %>%  # select even rows
  select(a, b)                       # select specific columns
472 chars
16 lines