add into R text