r - 如何在R管道中输出两次？

Question

library(psych)
library(mokken)
bfi[1:3] %>% 
  na.omit() %>% 
  mokken::check.monotonicity() %T>% 
  summary %>% 
  {.$Hi[.$Hi<0]}

        A1 
-0.3873723 

以上脚本运行良好。我得到了最终输出，但仍想查看 summary 的输出.
如何制作 summary在这个管道中也输出？

Answer 1

如果我们想要 summary同样，将其放入 list

library(psych)
library(mokken)
library(magrittr)
out <- bfi[1:3] %>% 
         na.omit() %>% 
         mokken::check.monotonicity() %>% 
         {list(summary(.), .$Hi[.$Hi < 0])}



out
#[[1]]
#   ItemH #ac #vi #vi/#ac maxvi  sum sum/#ac  zmax #zsig crit
#A1 -0.39  75  54    0.72  0.52 9.79  0.1305 16.75    51  550
#A2  0.06  50   8    0.16  0.14 0.63  0.0126  4.76     7  128
#A3  0.09  30   6    0.20  0.12 0.45  0.0149  4.63     6  134

#[[2]]
#        A1 
#-0.3873723