Update data_gathering.R