R中的多重赋值

Question

在python中，您可以执行以下操作：

x,y = 1,2 

或

x,y = function_that_returns_two_elements()

我试图在R中做一些类似的事情，但没有找到解决方案。有可能吗？

Answer 1

zeallot包提供了一个开箱操作员%<-%

library(zeallot)
z <- list(1:3, 6:9)
c(a, b) %<-% z
a
# 1 2 3
b 
# 6 7 8 9

Answer 2

我们可以对这个使用多重赋值运算符(%=%(

library(collapse)
c("x", "y") %=% c(1,2)

-输出

> x
[1] 1
> y
[1] 2

---

如果它应该是未标记的

rm(x, y) # remove the objects from the global environment
.c(x, y) %=% c(1, 2)

-输出

> x
[1] 1
> y
[1] 2