drop processing level

ebv_metadata_app.R

@@ -76,28 +76,21 @@ ui <- fluidPage(
                   placeholder = 'The method of production of the original data. If it was model-generated, source should name the model and its version. If it is observational, source should characterize it.'),
 
     #2 cols
-    fluidRow(
       #coverage content type
-      column(6,
-             selectInput('coverage_content_type', tags$span(style="font-size: 18px; font-weight: bold", 'Coverage Content Type*'), width='80%',
-                         c("Image" = "image",
-                           "Thematic Classification" = "thematicClassification",
-                           "Physical Measurement" = "physicalMeasurement",
-                           "Auxiliary Information" = "auxiliaryInformation",
-                           "Quality Information" = "qualityInformation",
-                           "Reference Information" = "referenceInformation",
-                           "Model Result" = "modelResult",
-                           "Coordinate" = "coordinate"),
-                         multiple = T
-                         ),
-             span(textOutput("cct_desc"), style="font-size:14px")
-      ),
-      #date of creation
-      column(6,
-             textInput('processing_level', tags$span(style="font-size: 18px; font-weight: bold", 'Processing Level'), width='80%',
-                       placeholder = 'A textual description of the processing (or quality control) level of the data.')
-      )
+
+    selectInput('coverage_content_type', tags$span(style="font-size: 18px; font-weight: bold", 'Coverage Content Type*'), width='90.5%',
+                c("Image" = "image",
+                  "Thematic Classification" = "thematicClassification",
+                  "Physical Measurement" = "physicalMeasurement",
+                  "Auxiliary Information" = "auxiliaryInformation",
+                  "Quality Information" = "qualityInformation",
+                  "Reference Information" = "referenceInformation",
+                  "Model Result" = "modelResult",
+                  "Coordinate" = "coordinate"),
+                multiple = T
     ),
+    span(textOutput("cct_desc"), style="font-size:14px"),
+
 
     #2 cols
     fluidRow(
@@ -667,13 +660,6 @@ server <- function(input, output) {
             create <- FALSE
           }
 
-          #check processing level
-          if(!is.null(need(input$processing_level != '', TRUE))){
-            processing_level <- nodata
-          }else{
-            processing_level <- input$processing_level
-          }
-
           #check project_name
           if(!is.null(need(input$project_name != '', TRUE))){
             project_name <- 'TERRANOVA - The European Landscape Learning Initiative'
@@ -987,7 +973,6 @@ server <- function(input, output) {
             "references": [\n\t\t\t\t"',paste0(unlist(references), collapse='",\n\t\t\t\t"'),'"\n\t\t\t],
             "source": "',input$methods,'",
             "coverage_content_type": [\n\t\t\t\t"',paste0(input$coverage_content_type, collapse='",\n\t\t\t\t"'),'"\n\t\t\t],
-            "processing_level": "',processing_level,'",
             "project": "',project_name,'",
             "project_url": "',project_url,'",
             "creator": {