setwd(tempdir())
dir.create("NiceFileNums_test")
setwd("NiceFileNums_test")
files <- c("1litres_1.txt", "1litres_30.txt", "3litres_5.txt")
file.create(files)
NiceFileNums()
NiceFileNums(pattern = "\\.txt$")
setwd("..")
RemoveDirs("NiceFileNums_test")
Run the code above in your browser using DataLab