library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(leaflet)
library(leaflet.minicharts)

# Notice the missing "#..." on color 7?
print(d3.schemeCategory10)
#>  [1] "#1f77b4" "#ff7f0e" "#2ca02c" "#d62728" "#9467bd" "#8c564b" "e377c2" 
#>  [8] "#7f7f7f" "#bcbd22" "#17becf"

# This throws an error because of it
scales::show_col(d3.schemeCategory10)
#> Error in rect(col(colours) - 1, -row(colours) + 1, col(colours), -row(colours), : invalid color name 'e377c2'

# Here's a sample dataset to demonstrate
x <- tibble(
  latitude = 38:40, 
  longitude = -77:-79
) %>% 
  mutate(
    a = runif(3),
    b = runif(3),
    c = runif(3),
    d = runif(3),
    e = runif(3),
    f = runif(3),
    g = runif(3)
  )

leaflet() %>% 
  addTiles() %>% 
  addMinicharts(
    x$longitude, x$latitude,
    type = "pie", 
    chartdata = x %>% select(a:g)
  )