R：数组中的错误（0，范围）：不能强制类型＆＃39;内置＆＃39;到矢量类型＆＃39;整数＆＃39;

Question

我在R中编写了以下函数。代码采用了一个字符数组，并附加一个＆＃34; 0＆＃34;在它长度小于2之前。

create.array = function(x){
  browser
  y = array(0,range)
  range = 2
  if (nchar(x) == 1){
      x = paste("0",x,sep="")
    }
  for (i in (1:range)){
    y[i] = as.numeric(substr(x,i,i))
  }
  y  
}
create.array("0")

输出：

Error in array(0, range) : 
  cannot coerce type 'builtin' to vector of type 'integer'