Commit 7375e412 authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

add Dispersal video

parent aa10be6e
...@@ -28,11 +28,21 @@ mod_tabItemDispersal_ui <- function(id){ ...@@ -28,11 +28,21 @@ mod_tabItemDispersal_ui <- function(id){
collapsible = TRUE, collapsible = TRUE,
closable = FALSE, closable = FALSE,
footer_padding = 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"), # img(src = 'www/modelScheme_item_2.jpg', title = "item1", width = "800px"),
hr(), hr(),
h4("Check list of previous items:"), 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 fluidRow( # width of fluidrow is 12
......
...@@ -37,7 +37,7 @@ mod_tabItemLandscape_ui <- function(id){ ...@@ -37,7 +37,7 @@ mod_tabItemLandscape_ui <- function(id){
column(width = 6, column(width = 6,
align="center", align="center",
h4("Tutorial on building KML landscape files."), h4("Tutorial on building KML landscape files."),
tags$video(id = ns("videoLandscape"), tags$video(id = ns("videoLandscape_makeKML"),
type = "video/mp4", type = "video/mp4",
src = "www/maizeFieldMap_VIDEO_medium2.mp4", src = "www/maizeFieldMap_VIDEO_medium2.mp4",
controls = "controls", controls = "controls",
...@@ -46,7 +46,7 @@ mod_tabItemLandscape_ui <- function(id){ ...@@ -46,7 +46,7 @@ mod_tabItemLandscape_ui <- function(id){
column(width = 6, column(width = 6,
align="center", align="center",
h4("Tutorial on Uploading landscape elements."), h4("Tutorial on Uploading landscape elements."),
tags$video(id = ns("videoLandscape"), tags$video(id = ns("videoLandscape_load"),
type = "video/mp4", type = "video/mp4",
src = "www/load_landscape_medium3.mp4", src = "www/load_landscape_medium3.mp4",
controls = "controls", controls = "controls",
......
Markdown is supported
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