Cleaning Environment
rm(list=ls())
Creating function
Password = function(n){
sampling = c(1:9,letters,LETTERS,"!","@","#","$","%","^","&","*","(",")","_")
paste(sample(sampling,n),collapse="")
}
Running the function now to generate password of 8 digits as per need
Password(8)
## [1] "XjIqsE5A"
And that is it, its easy to generate a password