r中的样本方法错误

我有一个这样的向量

objetosDisponibles <- c(1,2,3,4)

objetosDisponibles可能重复：请阅读
sample（）
的帮助页面。当第一个参数的长度为1时，其行为不同。
objetoAleatorio <- sample(objetosDisponibles,size = 1, replace = F)

objetosDisponibles <- objetosDisponibles[objetosDisponibles!=objetoAleatorio]

cont <- 0
objetosDisponibles <- c(1,2,3,4)

while(cont < 4){

 objetoAleatorio <- sample(objetosDisponibles,size = 1, replace = F)
 print(objetoAleatorio)
 objetosDisponibles <-  objetosDisponibles[objetosDisponibles!=objetoAleatorio]
 print(objetosDisponibles)
 cont <- cont +1

}