should add_CouncilStyle() for non-council boundaries?

[romartinez-nycc]

Running into the issue of not being able to use addCouncilStyle() for precinct map but would like the leaflet option presets, and labels presets ....

councildown/R/addCouncilStyle.R

Lines 28 to 45 in 16be0ef

	if(add_dists) {
	map <- map %>%
	leaflet::addPolygons(data = dists, fill = FALSE, weight = 1,
	color = "#2F56A6", opacity = .5, smoothFactor = 0,
	group = "Council Districts") %>%
	leaflet::addLabelOnlyMarkers(data = dists, lat = ~lab_y, lng = ~lab_x, label = ~coun_dist,
	labelOptions = leaflet::labelOptions(permanent = TRUE, noHide = TRUE,
	textOnly = TRUE,
	textsize = 12,
	direction = "center",
	style = list(color = "#23417D",
	"font-family" = "'Open Sans', sans-serif",
	"font-weight" = "bold")))
	if (length(highlight_dists) > 0) {
	map <- map %>%
	leaflet::addLabelOnlyMarkers(data = dists[dists$coun_dist %in% highlight_dists, ],

[nmontalbanocouncil]

Was this resolved with a power cycle or does it still occur?

[romartinez-nycc]

Nope, strange. I get this now when running

library(leaflet)
library(councildown)

The legacy packages maptools, rgdal, and rgeos, underpinning this package
will retire shortly. Please refer to R-spatial evolution reports on
https://r-spatial.org/r/2023/05/15/evolution4.html for details.
This package is now running under evolution status 0

Attaching package: ‘councildown’

The following object is masked from ‘package:leaflet’:

addPolygons

leaflet() %>% addCouncilStyle()

Blank output

[nmontalbanocouncil]

I don't think it will show anything unless you put use the add_dists parameter or add other polygons.
leaflet() %>% addCouncilStyle(add_dists = TRUE)

Not sure about that legacy packages part. I didn't get that on mine.

[romartinez-nycc]

Oops your right, so it doesn't work when running it at the end instead of the beginning, like I had it above...

leaflet() %>%
addPolygons(data = shootings_06_12.shp, weight = 1, fillColor = ~palPct(shootings_per_100K), #color="#cdd9f1", color= "white", stroke = TRUE, fillOpacity = 1, popup = ~map_labels) %>%
addCouncilStyle() %>%