Печать значений места заданного числа в R

Question

Я пытаюсь напечатать значения мест заданного числа в R, используя ниже logi c.

Но когда я запустил код, он округляет значение в некоторой точке, и я не мог ' не в состоянии понять причину, почему? Может кто-нибудь помочь мне понять поведение здесь и предложить исправить? Заранее спасибо.

Value <- 25080    
x <- 0L
print(paste("Actual Value = ", Value))    

while(Value > 0L){    
                  i <- round(Value) %% 10L    
                  print(paste("Place Value of ",i,i * (10 ** x)))    
                  Value <- round(Value / 10L,0L)    
                  x <- x + 1L    
                 }

Вывод: фактическое значение равно 25080, тогда как при проверке вывода 3-ди git (в середине, равном 0) округляется до 1 в логах c и вывод на 100.

[1] "Place Value of  0 0"

[1] "Place Value of  8 80"

**[1] "Place Value of  1 100"**

[1] "Place Value of  5 5000"

[1] "Place Value of  2 20000"