I don't understand and help also doesn't say anything about round depending on digits:
a <- 22.899999999999999
# [1] 22.899999999999999
options(digits = 20)
round(a, 1)
# [1] 22.899999999999999
options(digits = 7)
round(a, 1)
# [1] 22.9
options(digits = 20)
round(a, 1)
# [1] 22.899999999999999