update parameter emission

R/app_ui.R

@@ -83,8 +83,8 @@ header <- dashboardHeader(
                 title = "EFSA Home", height = "30px"),
             style = "padding-top:10px; padding-bottom:10px;"),
           class = "dropdown"),
-  tags$li(a(href = 'https://www.inra.fr',
-            img(src = 'www/logo_INRA.png',
+  tags$li(a(href = 'https://www.inrae.fr',
+            img(src = 'www/logo_INRAE.png',
                 title = "INRA Home", height = "30px"),
             style = "padding-top:10px; padding-bottom:10px;"),
           class = "dropdown"),

R/mod_tabItemEmission.R

@@ -81,7 +81,7 @@ mod_tabItemEmission_ui <- function(id){
                                                          min = 0, max = 10),
                                             numericInput(inputId = ns("pollenSCALE"),
                                                          label = "Pollen scale",
-                                                         value = 5*10^5#,
+                                                         value = 1*10^6#,
                                                          #in = 0, max = 1
                                                          ),
                                             br(),