Skip to content
Snippets Groups Projects
Commit cfdb662d authored by lq39quba's avatar lq39quba
Browse files

add select input for terranova data type

parent 3b9e359e
No related branches found
No related tags found
No related merge requests found
......@@ -200,7 +200,15 @@ ui <- fluidPage(
multiple = T
),
#define other for environmental domain
uiOutput('ebv_domain_other')
uiOutput('ebv_domain_other'),
#terranova type (keywords)
selectInput('terranova_type', tags$span(style="font-size: 18px; font-weight: bold", 'Type of Data*'), width='80%',
c("Climate " = "climate",
"Biodiversity" = "biodiversity ",
'Anthropogenic activity'='anthropogenic activity ')
),
),
#Biological entity
......@@ -839,6 +847,11 @@ server <- function(input, output) {
create <- FALSE
}
#check terranova type
if(!is.null(need(input$terranova_type != '', TRUE))){
to_do_list <- c(to_do_list, 'You need to provide a value for the type of the data.')
create <- FALSE
}
#output errors for user ----
if(create==FALSE){
......@@ -945,7 +958,8 @@ server <- function(input, output) {
"time_coverage_end": "',input$temp_end,'"
},
"ebv_domain": [\n\t\t\t\t"', paste0(ebv_domain_value, collapse = '",\n\t\t\t\t"'),'"\n\t\t\t],
"comment": "',comment,'"
"comment": "',comment,'",
"terranova_type": "', input$terranova_type,'"
}
]
}')
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment