if (FALSE) {
# Generate a sample green_index data frame
green_index <- data.frame(
green_index = runif(1000),
geometry = rep(sf::st_sfc(sf::st_point(c(0, 0))), 1000)
)
save_json(green_index, "green_index_data.geojson")
}
Run the code above in your browser using DataLab