Update Consolidate.R