setwd(tempdir())
dir.create("RenameWithNums_test")
setwd("RenameWithNums_test")
files <- c("1litres 1.txt", "1litres 30.txt", "3litres 5.txt")
file.create(files)
RenameWithNums()
list.files()
setwd("..")
RemoveDirs("RenameWithNums_test")
Run the code above in your browser using DataCamp Workspace