Update wide_format_fun.R