# NOT RUN { require(leaflet) # Toy example leaflet() %>% addTiles() %>% addFlows(0, 0, 1, 1, flow = 10) # Electric exchanges between France and neighboring countries data("eco2mixBalance") bal <- eco2mixBalance leaflet() %>% addTiles() %>% addFlows( bal$lng0, bal$lat0, bal$lng1, bal$lat1, flow = bal$balance, time = bal$month ) # popupOptions data("eco2mixBalance") bal <- eco2mixBalance leaflet() %>% addTiles() %>% addFlows( bal$lng0, bal$lat0, bal$lng1, bal$lat1, flow = bal$balance, time = bal$month, popupOptions = list(closeOnClick = FALSE, autoClose = FALSE) ) # }
Run the code above in your browser using DataCamp Workspace