Commit c29981a3 authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

update info icon

parent 1b7137b4
......@@ -20,9 +20,8 @@ mod_tabItemDamage_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -20,9 +20,8 @@ mod_tabItemDevelopment_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -20,9 +20,8 @@ mod_tabItemDispersal_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -23,9 +23,8 @@ mod_tabItemEmission_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -20,9 +20,8 @@ mod_tabItemExposure_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -20,9 +20,8 @@ mod_tabItemHost_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -21,9 +21,8 @@ mod_tabItemInteractiveMap_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
......@@ -25,9 +25,8 @@ mod_tabItemLandscape_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
title = iconed(" - Information", "info"),
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......@@ -35,7 +34,7 @@ mod_tabItemLandscape_ui <- function(id){
footer_padding = FALSE,
p("In this part, you have to download the source file, the host file and to compute
or load a square frame including host and sources in the same spatial square."),
tags$video(id="video2", type = "video/mp4",src = "www/maizeFieldMap_VIDEO_small.mp4", controls = "controls"),
tags$video(type = "video/mp4",src = "www/maizeFieldMap_VIDEO_medium.mp4", controls = "controls"),
# img(src = 'www/modelScheme_item_1.jpg',
# title = "item1", width = "800px"),
hr(),
......
......@@ -20,9 +20,8 @@ mod_tabItemReport_ui <- function(id){
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
title = iconed(" - Information", "info"),
width = 12,
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment