从一段管道代码中途打印结果，而不保存临时对象

Question

通常我想从一部分管道代码中部分地打印一些结果或值而不停止将我的代码保存为在下一个块中拾取的临时对象。

下面的代码将输出一系列anova表。在代码继续创建anova模型之前，有没有办法可以中断我的代码行来打印“group_by（cyl）％＆gt;％count”的结果？

mtcars %>%
  mutate(
    am = factor(am, labels = c("auto", "manual")),
    vs = factor(vs, labels = c("V", "S"))
  ) %>% 
  # group_by(cyl) %>% count %>% 
  split(.$cyl) %>% 
  map(~anova(lm(mpg ~ am * carb + , data = .)))

此代码生成我想要查看的输出，但需要我创建一个临时对象（即temp），这会使我的环境变得混乱。

(temp <- 
  mtcars %>%
  mutate(
    am = factor(am, labels = c("auto", "manual")),
    vs = factor(vs, labels = c("V", "S"))
  )
) %>% 
  group_by(cyl) %>% count 

temp %>% 
  split(.$cyl) %>% 
  map(~anova(lm(mpg ~ am * carb, data = .)))