R语言 sample函数报错 Error in sample.int(x, size, replace, prob) : invalid first argument

func_split_sample1.1<-function(x){
a<-c()
i=1
for(i in 1:183){
b<-x[[i]]
id<-sample(b$"upload_id",1,replace = F)
b<-filter(b,b$upload_id == id)
a<-rbind(a,b)
i=i+1
}
return(a)
}

报错内容：

我这个sample函数为什么报错是sample.int
而且我只抽1个 不放回 也不存在样本过大的情况 并且调成T后也同样报错
也尝试了把upload_id调试成numeric格式 依然报错
实在不知道为什么