Разрывы цветовой шкалы для картограммы в Leaflet R

Question

Я использовал метод цветового квантиля, чтобы раскрасить свою карту листовки хороплета в r для блестящего приложения.В большинстве случаев работает нормально, кроме случаев, когда есть только одно значение, когда комбинация из трех индикаторов выбрана из трех выпадающих.Любая помощь, чтобы исправить это будет принята с благодарностью.Большое спасибо.

server.r

shape_st <- left_join(shape_st, subsetData(), by = c("censuscode", "st_code"))

    req(shape_st$value)

    quantileNum <- 4

    probs <- seq(0, 1, length.out = quantileNum + 1)
    bins <- quantile(shape_st$value, probs, na.rm = TRUE, names = FALSE)

    while (length(unique(bins)) != length(bins)) {
      quantileNum <- quantileNum - 1
      probs <- seq(0, 1, length.out = quantileNum + 1)
      bins <- quantile(shape_st$value, probs, na.rm = TRUE, names = FALSE)
    }

    qpal <- colorBin(carto_pal(7,"Sunset") , shape_st$value, bins = bins, na.color = "#e0e0e0")