将String转换为数字向量

Question

我有一个函数，它带有一个零和一个矢量，例如：

foo(c(1,1,1,0,1,1))

但在某些情况下，有超过100个数字，我必须手动添加所有逗号。是否有任何预定义的函数将字符串转换为这样的向量？像这样：

foo(unknown_function("111011"))

Answer 1

我们可以使用paste

foo <- function(vec){
   paste(vec, collapse="")
  }

foo(c(1,1,1,0,1,1))
#[1] "111011"

如果我们需要反向

foo1 <- function(str1){
      as.integer(unlist(strsplit(str1, "")))
  }
res <- foo1("111011")
res
#[1] 1 1 1 0 1 1

或者可能是OP意味着

dput(res)