small change for ebv_domain

ebv_metadata_app.R

@@ -707,10 +707,14 @@ server <- function(input, output) {
                 to_do_list <- c(to_do_list, 'You need to provide a description of the other environmental domain.')
                 create <- FALSE
               }
+              #create ebv_domain value
+              ebv_domain_value <- c(input$ebv_domain[! input$ebv_domain %in% c('Other')], input$ebv_domain_other_txt)
+
+            }else{
+              #create ebv_domain value
+              ebv_domain_value <- c(input$ebv_domain)
+              }
             }
-            #create ebv_domain value
-            ebv_domain_value <- c(input$ebv_domain[! input$ebv_domain %in% c('Other')], input$ebv_domain_other_txt)
-          }
 
           #check biological_entity
           if(!is.null(need(input$biological_entity != '', TRUE))){