将一个正则表达式匹配替换为另一个正则表达式匹配，反之亦然

我需要替换为字符串foo bar foo bar bar foo all foo to bar和所有bar to foo。所以结果应该是这样的bar foo bar foo foo bar.

我已经尝试过这种方式：

library(stringr)

my_str <- "foo bar foo bar bar foo"
rslt <- str_replace_all(my_str, c("foo", "bar"), c("bar", "foo"))

print(rslt)

但我得到了"bar bar bar bar bar bar" "foo foo foo foo foo foo".

问题：如何更正我的代码以便我得到bar foo bar foo foo bar?

Using str_replace_all多次替换并将第一个匹配移动到临时值。

library(stringr)

str_replace_all(my_str, c("foo" = "tmp", "bar" = "foo", "tmp" = "bar"))

[1] "bar foo bar foo foo bar"