Generic JS Plugin Demo

library(leaflethex)

library(leaflethex)
library(tibble)

df = tibble(
  lat = rnorm(100),
  lng = rnorm(100),
  size = runif(100, 5, 20),
  color = sample(colors(), 100)
)
df2 <- tibble(
  lat =  42.9634 + stats::rnorm(100),
  lng = -85.6681 + stats::rnorm(100),
  size = runif(100, 5, 20),
  color = sample(colors(), 100)
)
addJS <- 
  pluginFactory(
    "Some JS Plugin", 
    system.file("js", "", package = "leaflethex"), "hexbin.js", "deps.js", stylesheet="hexbin.css")

leaflet(df2, width = 600, height = 300) %>% 
  addTiles() %>% 
  addCircles(color = "red") %>%
  addJS(radius = 20, highEndColor = "yellow")
#> Assuming "lng" and "lat" are longitude and latitude, respectively

args(addJS)
#> function (map, data = NULL, ...) 
#> NULL
args(addHexbin)
#> function (map, data = NULL, radius = 12, opacity = 0.5, duration = 500, 
#>     lowEndColor = "white", highEndColor = "blue", uniformSize = FALSE, 
#>     uniformColor = NULL, sizeSummaryFunction = c("count", "sum", 
#>         "max", "min", "mean", "median"), sizevar = NULL, colorSummaryFunction = c("count", 
#>         "sum", "max", "min", "mean", "median"), colorvar = NULL) 
#> NULL