i'm trying visualize shipment origin destination using leaflet map created r within shiny application.
i want add circle marker of radius corresponding odist , ddist variables come form reactive dataframe called main()
below relevant snapshot accompanying code:
output$leaflet1 <- renderleaflet({ leaflet() %>% addcirclemarkers(data = main(), lng = main()$olong, lat = main()$olat, color = 'black', fillcolor = coygreen, radius = main()$odist, opacity = .5) %>% addcirclemarkers(data = main(), lng = main()$dlong, lat = main()$dlat, color = 'black', fillcolor = coygreen, radius = main()$ddist, opacity = .3) }) for above example argument radius = main()$odist equivalent radius = 50. however, 50 units seem arbitrary (the cirlce smaller larger 1 radius = main()$ddist = 125 both circles enlarge , shrink zoom in , out). able set radius of circle marker fixed radius in miles, haven't been able figure out how so. appreciated!
if use addcircles instead of addcirclemarkers circles have constant radius (in meters). here's reproducible example using mapview uses addcirclemarkers. on top plot same locations using addcircles
library(mapview) m <- mapview(breweries91) # uses addcirclemarkers circle radius changes zoom m@map %>% addcircles(data = breweries91, color = "red", radius = 100) # circle radius constant if zoom in see smaller red circles become bigger in relation standard blue circlemarkers used in mapview

Comments
Post a Comment