r - 在 tidyverse 中不中断管道的情况下打印中间结果

Question

是否有一个命令可以添加到 tidyverse 管道中，该命令不会中断流程，但会产生一些副作用，例如打印出来的东西。我想到的用例是这样的。如果是管道

data %>%
  mutate(new_var = <some time consuming operation>) %>%
  mutate(new_var2 = <some other time consuming operation>) %>%
  ...

我想向管道添加一些不会修改最终结果的命令，但会打印出一些进度或事情的状态。也许是这样的:

data %>%
  mutate(new_var = <some time consuming operation>) %>%
  command_x(print("first operation done")) %>%
  mutate(new_var2 = <some other time consuming operation>) %>%
  ...

是否存在这样的 command_x已经？

Answer 1

对于在管道中打印中间步骤的特定情况，只需使用 %>% print() %>% .例如。，

mtcars %>%
  filter(cyl == 4) %>%
  print() %>%
  summarise(mpg = mean(mpg))

对于简单的状态消息，您可以执行以下操作:

pipe_message = function(.data, status) {message(status); .data}
mtcars %>%
  filter(cyl == 4) %>%
  pipe_message("first operation done") %>%
  select(cyl)

有关非 print 的更通用解决方案，请参阅 @MrFlick 的答案职能。