a<-c(1,2,0,7,5)
Some languages have a picker -function -- choose one random number from a -- how in R?
a
This method doesn't produce an error when your vector is length one, and it's simple.
a[sample(1:length(a),1)]