# NOT RUN {
## Plot the best wind farm on a leaflet map (ordered by energy values)
plot_leaflet(result = resulthex, Polygon1 = sp_polygon, which = 1)
## Plot the last wind farm (ordered by chronology).
plot_leaflet(result = resulthex, Polygon1 = sp_polygon, orderitems = FALSE,
which = 1)
## Plot the best wind farm on a leaflet map with the rectangular Grid
Grid <- grid_area(sp_polygon, size = 150, prop = 0.4)
plot_leaflet(result = resultrect, Polygon1 = sp_polygon, which = 1,
GridPol = Grid[[2]])
## Plot the last wind farm with hexagonal Grid
Grid <- hexa_area(sp_polygon, size = 75)
plot_leaflet(result = resulthex, Polygon1 = sp_polygon, which = 1,
GridPol = Grid[[2]])
# }
Run the code above in your browser using DataLab