read.xlsx 'str' cell fix