у функцию для построения графика данных. Я хотел бы указать хорошее круглое число для оси Ymax это больше, чем максимум набора данных.

В частности, я хотел бы функциюfoo который выполняет следующее:

foo(4) == 5
foo(6.1) == 10 #maybe 7 would be better
foo(30.1) == 40
foo(100.1) == 110 

Я дошел до

foo <- function(x) ceiling(max(x)/10)*10

для округления до ближайших 10, но это не работает для произвольных интервалов округления.

Есть ли лучший способ сделать это в R?