setwd(tempdir())
dir.create("UnitDirs_test")
setwd("UnitDirs_test")
files <- c("1litres_1.txt", "1litres_3.txt", "3litres.txt", "5litres_1.txt")
file.create(files)
UnitDirs("litres", "\\.txt")
setwd("..")
RemoveDirs("UnitDirs_test")
Run the code above in your browser using DataLab