Improve sample_file.R
Rename sample_file to file_sampler