Create get_data_from_web.R