shiny add logo

inst/shiny-landsepi/server.R

@@ -148,7 +148,7 @@ server <- function(input, output, session) {
       easyClose = TRUE,
       size = "l",
       footer = NULL,
-      div(HTML("<h1>Landsepi: Landscape Epidemiology and Evolution</h1>
+      div(HTML("<h1>Landsepi: Landscape Epidemiology and Evolution</h1><img src='landsepi-logo.png'  align='right' alt='' width='120'/>
                           <h3> A stochastic, spatially-explicit, demo-genetic model
                          simulating the spread and evolution of a plant pathogen in a heterogeneous landscape
                          to assess resistance deployment strategies. It is based on a spatial geometry for describing

inst/shiny-landsepi/ui.R

@@ -306,10 +306,10 @@ ui <- {
                 evolutionary and economic outcomes."),
       tags$meta(name = "title", content = "Landsepi: Landscape Epidemiology and Evolution"),
       tags$meta(name = "author", content = "Jean-François Rey"),
-      tags$meta(name = "keywords", content = "R, Shiny, INRA, landscape, epidemiology, strategies, deployment, hosts, pathogens, stochastic, spatio-temporal, demonstration")
+      tags$meta(name = "keywords", content = "R, Shiny, INRAE, landscape, epidemiology, strategies, deployment, hosts, pathogens, stochastic, spatio-temporal, demonstration")
     ),
     fluidRow(
-      titlePanel("Landsepi : Landscape Epidemiology and Evolution"),
+      titlePanel(div(img(src="landsepi-logo.png", width="60" ), "Landsepi : Landscape Epidemiology and Evolution")),
       actionButton("About", "About"),
       actionButton("Mode", "Advanced Mode On/Off", icon = icon("exchange-alt")),
       shinyBS::bsTooltip("Mode",title="Edit all input parameters", placement = "top", trigger="hover"),