Update concat.R