if (FALSE) {
result <- analyze_green_accessibility(
network_data = data$highways$osm_lines,
green_areas = data$green_areas$osm_polygons,
mode = "walking",
grid_size = 300,
population_raster = pop_raster_raw
)
viz <- create_accessibility_visualizations(result, data$green_areas$osm_polygons, mode = "walking")
print(viz$distance_map)
print(viz$coverage_plot)
print(viz$directional_plot)
print(viz$combined_plot)
viz$leaflet_map # View in RStudio Viewer
cat(viz$summary)
print(viz$directional_table)
}
Run the code above in your browser using DataLab