Update rollup_function.R