updata ebv_geospatial

ebv_metadata_app.R

@@ -950,9 +950,9 @@ server <- function(input, output) {
                            ebv_metric,
                            '\n\t\t\t},\n\t\t\t',
                            ebv_scenario,
-                           '\n\t\t\t"ebv_spatial": {
-                "ebv_spatial_scope": "',input$spatial_scope,'",
-                "ebv_spatial_description": "',spatial_desc_txt,'"
+                           '\n\t\t\t"ebv_geospatial": {
+                "ebv_geospatial_scope": "',input$spatial_scope,'",
+                "ebv_geospatial_description": "',spatial_desc_txt,'"
             },
             "geospatial_lat_units": "',input$spatial_units,'",
             "geospatial_lon_units": "',input$spatial_units,'",