rubbish generator

# data("USJudgeRatings")
# setwd("C:/Users/")
# 
# size  <- 2
# times <- 3
# 
# rubbish <- paste0(lapply(USJudgeRatings, paste0(colapse="-")),
#                   collapse=" ")
# 
# # pb <- txtProgressBar(min = 0, max = times, style = 3)
# 
# df <- data.frame(letters)
# df[letters] <- rubbish
# for(i in 1:size){
#   df <- rbind(df,
#               df)
# }
# 
# for(t in 1:times){
#   file_name <- paste0("rubbish_", t,
#                       ".csv")
#   write.csv(df,
#             file_name)
#   # setTxtProgressBar(pb, t)
#   
#   msg <- paste0("ready with file ", t,
#                 " out of ", times)
#   print(msg)
#   flush.console()
# }
#