add Dispersal video

R/mod_tabItemDispersal.R

@@ -28,11 +28,21 @@ mod_tabItemDispersal_ui <- function(id){
               collapsible = TRUE,
               closable = FALSE,
               footer_padding = FALSE,
-              p("In this part, you have to compute dispersal probability."),
               # img(src = 'www/modelScheme_item_2.jpg', title = "item1",  width = "800px"),
               hr(),
               h4("Check list of previous items:"),
-              verbatimTextOutput(ns("CheckDispersal"))
+              verbatimTextOutput(ns("CheckDispersal")),
+              hr(),
+              h4("Once all elements in Check list is OK, this part allow to compute dispersal probability."),
+              # column(width = 6,
+                     # align="center",
+                     h4("Tutorial on running dispersal kernel."),
+                     tags$video(id = ns("videoDispersal"),
+                                type = "video/mp4",
+                                src = "www/dispersal_capture2.mp4",
+                                controls = "controls",
+                                height = "300px")
+              # ),
             )
           ),
           fluidRow( # width of fluidrow is 12

R/mod_tabItemLandscape.R

@@ -37,7 +37,7 @@ mod_tabItemLandscape_ui <- function(id){
                 column(width = 6,
                        align="center",
                        h4("Tutorial on building KML landscape files."),
-                       tags$video(id = ns("videoLandscape"),
+                       tags$video(id = ns("videoLandscape_makeKML"),
                                   type = "video/mp4",
                                   src = "www/maizeFieldMap_VIDEO_medium2.mp4",
                                   controls = "controls",
@@ -46,7 +46,7 @@ mod_tabItemLandscape_ui <- function(id){
                 column(width = 6,
                        align="center",
                        h4("Tutorial on Uploading landscape elements."),
-                       tags$video(id = ns("videoLandscape"),
+                       tags$video(id = ns("videoLandscape_load"),
                                   type = "video/mp4",
                                   src = "www/load_landscape_medium3.mp4",
                                   controls = "controls",