Commit 5058dafe authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

export footerPage and

parent 7375e412
# Generated by roxygen2: do not edit by hand
export(footerPage)
export(headerNavigationPage)
export(iconed)
export(mod_tabItemDamage_server)
export(mod_tabItemDamage_ui)
......
......@@ -33,10 +33,11 @@ mod_tabItemDispersal_ui <- function(id){
h4("Check list of previous items:"),
verbatimTextOutput(ns("CheckDispersal")),
hr(),
h4("Once all elements in Check list is OK, this part allow to compute dispersal probability."),
h4("Once all elements in Check list is OK, this part allows to compute dispersal probability."),
br(),
# column(width = 6,
# align="center",
h4("Tutorial on running dispersal kernel."),
h3("Tutorial on running dispersal kernel:"),
tags$video(id = ns("videoDispersal"),
type = "video/mp4",
src = "www/dispersal_capture2.mp4",
......
......@@ -8,7 +8,8 @@ iconed <- function(x, icon) {
#' Bottom of a page with link to Gitlab page and Report Issue
#'
footerPage = function(){
#' @export
footerPage <- function(){
fluidRow(
hr(),
column(width =12,
......@@ -29,7 +30,8 @@ footerPage = function(){
#' Header of navigation
#'
headerNavigationPage = function(backNavKey, nextNavKey){
#' @export
headerNavigationPage <- function(backNavKey, nextNavKey){
fluidRow(
shinydashboardPlus::gradientBox(
title = "Navigation",
......
Supports Markdown
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