如何制作一个采用数字vector [i]并将其vector [i]复制到另一个向量y的函数

Question

我正在尝试获取执行以下操作的函数：

this.playerListData = null;
callTheAPI(){
 code to call the api and get the data.
 this.playerListData = dataFromAPI;
}

我目前有以下

duplicate(c(1,2,3)) : c(1,2,2,3,3,3)

但是当我在

上运行它时

 n_duplicate<-function(vector)
  {
    for(i in 1:length(vector)){
     vector[i]<-as.integer(vector[i])
     if (is.integer(vector[i]==FALSE)){
       return("Error: Unable to coerce arguments to type == integer")
     }
     y<-rep(vector,each=vector[i])

    }
    return(y)
  }

我得到：

y1 <- c(5,2,9)

根据我的判断，我可以用向量中的最后一个数字（在本例中为vector [3] 9）重复每个数字vector [i]。