update info icon

R/mod_tabItemDamage.R

@@ -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,

R/mod_tabItemDevelopment.R

@@ -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,

R/mod_tabItemDispersal.R

@@ -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,

R/mod_tabItemEmission.R

@@ -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,

R/mod_tabItemExposure.R

@@ -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,

R/mod_tabItemHost.R

@@ -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,

R/mod_tabItemInteractiveMap.R

@@ -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,

R/mod_tabItemLandscape.R

@@ -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(),

R/mod_tabItemReport.R

@@ -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,