Cannot draw a graph with integer value_field

[ChrisBeeley]

library(magrittr)

test_df <- tibble::tibble(
  "Date" = seq.Date(as.Date("2020-01-01"), as.Date("2021-02-01"), by = "month"),
  "test_quantity" = sample(1L : 10L, 14, replace = TRUE)
)

test_df %>% 
  NHSRplotthedots::ptd_spc(value_field = test_quantity, date_field = Date)
#> Error: Problem with `mutate()` column `mr`.
#> ℹ `mr = case_when(...)`.
#> x must be an integer vector, not a double vector.
#> ℹ The error occurred in group 1: f = "no facet", rebase_group = 0.

^{Created on 2021-10-25 by the reprex package (v2.0.0)}

[ChrisBeeley]

This works fine:

test_df <- tibble::tibble(
  "Date" = seq.Date(as.Date("2020-01-01"), as.Date("2021-02-01"), by = "month"),
  "test_quantity" = rnorm(14)
)