Update r.rmd

suspect cat(stringi::stri_escape_unicode(x)) should be cat(stringr::stri_escape_unicode(x))