Error in substituteOperators(as.list(retval)) : internal error -3 in R_decompress1