Числа формата к значащим цифрам приятно в R

Я хочу отформатировать числа в своих отчетах значащим цифрам, но продолжать запаздывать значительное обнуляет и правильно большие количества формата

Например, числа c (10.00001,12345,1234.5,123.45,1.2345,0.12345) к 3 значащим цифрам должны быть 10.0, 12300, 1230, 123, 1.23, 0.123, но я получаю отличающиеся результаты с различными методами (и ни один, кажется, не работает универсально.

> numbers<-c(10.00001,12345,1234.5,123.45,1.2345,0.12345)
> for(n in seq(numbers)){
+   print(signif(numbers[n],digits=3))
+   print(format(numbers[n],digits=3))
+   print(formatC(numbers[n], digits=3,format="fg"))
+   print(formatC(numbers[n], digits=3,format="fg", flag="#"))
+   }
[1] 10
[1] "10"
[1] "  10"
[1] "10.0"
[1] 12300
[1] "12345"
[1] "12345"
[1] "12345."
[1] 1230
[1] "1234"
[1] "1234"
[1] "1234."
[1] 123
[1] "123"
[1] " 123"
[1] "123."
[1] 12.3
[1] "12.3"
[1] "12.3"
[1] "12.3"
[1] 1.23
[1] "1.23"
[1] "1.23"
[1] "1.23"
[1] 0.123
[1] "0.123"
[1] "0.123"
[1] "0.123"

Здесь, signif и формат вокруг этих 10,00001 результатов. formatC с флагом = "#" правильно делает небольшие числа, но не большие количества.

Существует ли лучший путь?