landscape video

R/mod_tabItemLandscape.R

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