You can use either round() or format() function to limit the number of digits after the decimal place.
Here is an example:
> round(1.453245, digits = 4)[1] 1.4532> format(0.123235, digits=4)[1] "0.1232"