Create unload_data.R