Error in break_suffix

[mgacc0]

library(tidyverse)
map(
  c(-12002, 12, 1234, 123456789, 1234567890),
  ~ scales::number(
    .,
    accuracy = 0.1,
    scale_cut = scales::cut_long_scale(),
  )
)
#> [[1]]
#> [1] "-12.0K"
#> 
#> [[2]]
#> [1] "12.0"
#> 
#> [[3]]
#> [1] "1.2K"
#> 
#> [[4]]
#> [1] "123.5M"
#> 
#> [[5]]
#> [1] "1 234.6M"
scales::number(
  c(-12002, 12, 1234, 123456789, 1234567890),
  accuracy = 0.1,
  scale_cut = scales::cut_long_scale(),
)
#> Error in break_suffix[bad_break][improved_break & !power10_break] <- names(lower_break[improved_break & : NAs are not allowed in subscripted assignments

[teunbrand]

Hi there, thanks for the report! If you download the dev version of scales, does that help the problem at all? I'm asking because a similar issue was recently fixed in the development version.

[mgacc0]

Thanks @teunbrand.
It works correctly in the current dev version.

library(tidyverse)
packageVersion("scales")
#> [1] '1.3.0.9000'
testthat::expect_equal(
  map(
    c(-12002, 12, 1234, 123456789, 1234567890),
    ~ scales::number(
      .,
      accuracy = 0.1,
      scale_cut = scales::cut_long_scale(),
    )
  ) %>%
    unlist(),
  c("-12.0K", "12.0", "1.2K", "123.5M", "1 234.6M")
)
testthat::expect_equal(
  scales::number(
    c(-12002, 12, 1234, 123456789, 1234567890),
    accuracy = 0.1,
    scale_cut = scales::cut_long_scale()
  ),
  c("-12.0K", "12.0", "1.2K", "123.5M", "1 234.6M")
)