floor not working for few values in round_any()

[herambgadgil]

Greetings,

I am using round_any() function in one of my projects and few values are getting incorrectly floored.

test_var <- unlist(
                     lapply(
                         seq(1000, 10000, 10), function(x) plyr::round_any(x / 1000, accuracy = 0.01, f = floor)
                               )
                      )

check_var <- test_var[duplicated(test_var)] 

test_df <- data.frame(Original_Ser = seq(1000, 10000, 10), Trunc2Deci_Result = test_var, 
                                   Dups_Tag = duplicated(test_var)
                                  )

Ideally there should not be any duplicates as I am increasing the input by 10. But I am getting 76 duplicates. I did not observe any pattern for these duplicates.

Thanks!
Heramb