change maximum width in R source