From d37932945a796ce7d724f38eebfce8bf942beece Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luise=20Quo=C3=9F?= <luise.quoss@idiv.de>
Date: Thu, 24 Mar 2022 11:50:25 +0100
Subject: [PATCH] drop processing level
---
ebv_metadata_app.R | 41 +++++++++++++----------------------------
1 file changed, 13 insertions(+), 28 deletions(-)
diff --git a/ebv_metadata_app.R b/ebv_metadata_app.R
index 8ea3e40..6505828 100644
--- a/ebv_metadata_app.R
+++ b/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": {
--
GitLab