An R script for direct download