r - 管道时在函数内控制台的消息顺序
问题描述
编辑:我不是故意粗鲁,所以只是没有接受我的问候..
你好,
为了跟踪某些功能的处理,我想在功能启动和完成时在控制台中打印消息。
tidyverse
我是管道操作员的忠实粉丝%>%
。但是我刚刚发现函数开头的消息以错误的顺序打印,而最后的消息具有正确的顺序。
有谁知道为什么或如何解决这个问题?
这是一些代码:
library(tidyverse)
testdata <- data.frame(a=c(3,5,7,1,2),b=c(2,5,6,3,9))
foo_1 <- function(DF){
message("Hello 1")
Obj <- DF %>%
mutate(Test_1=a*b)
message("Bye 1")
return(Obj)
}
foo_2 <- function(DF){
message("Hello 2")
Obj <- DF %>%
mutate(Test_2=Test_1*2)
message("Bye 2")
return(Obj)
}
foo_3 <- function(DF){
message("Hello 3")
Obj <- DF %>%
mutate(Test_3=Test_2/a)
message("Bye 3")
return(Obj)
}
testdata %>%
foo_1() %>%
foo_2() %>%
foo_3()
控制台打印的结果是:
Hello 3
Hello 2
Hello 1
Bye 1
Bye 2
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
我期望的是以下消息顺序:
Hello 1
Bye 1
Hello 2
Bye 2
Hello 3
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
解决方案
1) flush.console使用flush.console 强制显示此时排队的消息。
testdata %>%
foo_1() %>%
{ flush.console(); foo_2(.) } %>%
{ flush.console(); foo_3(.) }
给出这个输出:
Hello 1
Bye 1
Hello 2
Bye 2
Hello 3
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
2) Bizarro pipe另一种方法是使用Bizarro pipe,它是一种巧妙的基本语法,看起来像管道。
testdata ->.;
foo_1(.) ->.;
foo_2(.) ->.;
foo_3(.)
给予:
Hello 1
Bye 1
Hello 2
Bye 2
Hello 3
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
3) force 强制评估三个函数中的参数。
foo_1 <- function(DF){
force(DF) #######
message("Hello 1")
Obj <- DF %>%
mutate(Test_1=a*b)
message("Bye 1")
return(Obj)
}
foo_2 <- function(DF){
force(DF) #######
message("Hello 2")
Obj <- DF %>%
mutate(Test_2=Test_1*2)
message("Bye 2")
return(Obj)
}
foo_3 <- function(DF){
force(DF) #######
message("Hello 3")
Obj <- DF %>%
mutate(Test_3=Test_2/a)
message("Bye 3")
return(Obj)
}
testdata %>%
foo_1 %>%
foo_2 %>%
foo_3
给予:
Hello 1
Bye 1
Hello 2
Bye 2
Hello 3
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
4) pipe_eager_lexical magrittr 开发人员 Lionel 向我指出 magrittr 有一个渴望管道,但没有将其分配给 %..% 运算符;但是,我们可以很容易地做到这一点。
library(magrittr)
`%>e%` <- pipe_eager_lexical # eager pipe
testdata %>e%
foo_1() %>e%
foo_2() %>e%
foo_3()
给予:
Hello 1
Bye 1
Hello 2
Bye 2
Hello 3
Bye 3
a b Test_1 Test_2 Test_3
1 3 2 6 12 4
2 5 5 25 50 10
3 7 6 42 84 12
4 1 3 3 6 6
5 2 9 18 36 18
推荐阅读
- automapper - 如何展开属性,在其他地图中被忽略?
- tkinter - Tkinter 打开和关闭顶层窗口
- node.js - 如何从json中的firestore返回数据?
- c++ - 如何使用 std::find 从 vector< pair < string, string >> type 的第一个元素中查找字符串?
- qt - QMenu 中的 QIcon 不会通过鼠标悬停或单击来更改图像
- r - 无法加载 xlsx 包
- excel - 如何使用 VBA vlookup 函数填写多列数据?
- javascript - 检查当前页面元素的 Chrome 扩展程序,如果存在,则创建警报
- python - 从与项目结构处于同一级别的另一个文件夹中的文件导入
- entity-framework - 无法加载程序集 System.Runtime.CompilerServices.Unsafe