Update wide_format_fun.R

Modifyied melt and dcast calls so that counts are retained and returned by create_standard_wide_format().