字符串转换为数字矢量

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)