字符串轉換爲數字矢量

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)