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