Testing with file.R creation