fix bug: 'other' timestep temporal resolution now written correctly

ebv_metadata_app.R

@@ -897,6 +897,7 @@ server <- function(input, output) {
 
           #temporal resolution
           if(input$temporal_resolution =='other'){
+            t_res <- input$temp_res_txt
             if(!is.null(need(input$temp_res_txt != '', TRUE))){
               to_do_list <- c(to_do_list, 'You need to define the temporal resolution.')
               create <- FALSE
@@ -906,6 +907,8 @@ server <- function(input, output) {
                 create <- FALSE
               }
             }
+          }else{
+            t_res <- input$temporal_resolution
           }
 
           #check the input of the irregulare timesteps
@@ -1050,7 +1053,7 @@ server <- function(input, output) {
             "geospatial_lat_units": "',input$spatial_units,'",
             "geospatial_lon_units": "',input$spatial_units,'",
             "time_coverage": {
-                "time_coverage_resolution": "',input$temporal_resolution,'",
+                "time_coverage_resolution": "',t_res,'",
                 "time_coverage_start": "',t_start,'",
                 "time_coverage_end": "',t_end,'"
             },