Commit 7db21ef7 authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

landscape video

parent fe161f5a
......@@ -23,6 +23,31 @@ mod_tabItemLandscape_ui <- function(id){
tabItem(tabName = "landscape",
title = "Landscape",
# App title ----
fluidRow(
shinydashboardPlus::gradientBox(
title = "Navigation",
width = 12,
gradientColor = "purple",
boxToolSize = "xs",
collapsible = FALSE,
closable = FALSE,
footer_padding = FALSE,
column(width = 6,
p("Come back to the previous page," ),
actionButton('backStartTab',
"Back",
icon = icon("backward"),
style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc")
),
column(width = 6,
p("Go to the next step..." ),
actionButton('switchDispersalTab',
"Next",
icon = icon("forward"),
style="color: #fff; background-color: #00a65a; border-color: #00a65a")
)
)
),
fluidRow(
shinydashboardPlus::gradientBox(
title = iconed(" - Information", "info"),
......@@ -34,32 +59,22 @@ 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 = ns("videoLandscape"), type = "video/mp4",src = "www/maizeFieldMap_VIDEO_medium2.mp4", controls = "controls"),
# img(src = 'www/modelScheme_item_1.jpg',
# title = "item1", width = "800px"),
hr(),
column(width = 6,
p("You can come back to the previous page, but before running new simulations, clear the current page." ),
actionButton('backStartTab',
"Back",
icon = icon("backward"),
style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc")
),
p("Tutorial on building KML landscape files."),
tags$video(id = ns("videoLandscape"),
type = "video/mp4",
src = "www/maizeFieldMap_VIDEO_medium2.mp4",
controls = "controls",
height = "300px")
),
column(width = 6,
p("If the map has", tags$b("sources"),", ", tags$b("hosts"), " and ",
tags$b("a square frame"), "you can consider to safely click to go to the next step... " ),
actionButton('switchDispersalTab',
"Next",
icon = icon("forward"),
style="color: #fff; background-color: #00a65a; border-color: #00a65a")
# ),
# column(width = 4,
# p("Clear this page, and all the next pages if things have already been done." ),
# actionButton('clearLandscapeTab',
# "CLEAR",
# icon = icon("exclamation"),
# style="color: #fff; background-color: #dd4b39; border-color: #dd4b39")
)
p("Tutorial on Uploading landscape elements."),
tags$video(id = ns("videoLandscape"),
type = "video/mp4",
src = "www/load_landscape_medium3.mp4",
controls = "controls",
height = "300px")
)
)
),
fluidRow( # width of fluidrow is 12
......
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