# Randomization code-------
write.excel <- function(x=70,row.names=FALSE,col.names=TRUE,...) { 
  write.table(x,"clipboard",sep="\t",row.names=row.names,col.names=col.names,...)
}

library(openxlsx)
my_sample <- sample(x=1:70,replace=F)
length(my_sample)
write.excel(my_sample)
view(my_sample)