'Breaks not unique' - viz_leaflet_an target function script

[danaj0495]

Error:

! Error running targets::tar_make()
  Target errors: targets::tar_meta(fields = error, complete_only = TRUE)
  Tips: https://books.ropensci.org/targets/debugging.html
  Last error: 'breaks' are not unique

Attributable number for some scenarios can be very small – colourQuantile in r script viz_leaflet_an cannot handle these small numbers, will have quantile cutoffs with same break numbers

Fix:

r script viz_leaflet_an.R
Changed:

  pal1 <- colorQuantile(
    palette = "RdYlBu",
    domain = sf_an$attributable, n = 5, reverse = TRUE
  )

To:

  pal1 <- colorNumeric(
    palette = "RdYlBu",
    domain = sf_an$attributable
  )

This creates a continuous palette instead of a categorical palette