get_data.R update