Commit a536d1a8 authored by Virgile Baudrot's avatar Virgile Baudrot
Browse files

add information format shinydashboardPlus

parent 87ee498a
#' @import shinydashboard
#' @import shinydashboardPlus
#' @import shiny
#' @import golem
#' @import leaflet
......
......@@ -19,9 +19,15 @@ mod_tabItemDamage_ui <- function(id){
title = "Damage",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information about damage ..."),
hr(),
h4("Check list of previous items:"),
......
......@@ -19,9 +19,15 @@ mod_tabItemDataExplorer_ui <- function(id){
title = "Data Explorer",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information on Data Explorer ...")
)
),
......
......@@ -19,9 +19,15 @@ mod_tabItemDevelopment_ui <- function(id){
title = "Development",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information about development ..."),
hr(),
h4("Check list of previous items:"),
......
......@@ -19,14 +19,20 @@ mod_tabItemDispersal_ui <- function(id){
title = "Dispersal",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
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"))
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
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"))
)
),
fluidRow( # width of fluidrow is 12
......
......@@ -22,11 +22,17 @@ mod_tabItemEmission_ui <- function(id){
tabItem(tabName = "emission",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Computing convolution Dispersal with Emission."),
img(src = 'www/modelScheme_item_3.jpg', title = "item1", width = "800px"),
# img(src = 'www/modelScheme_item_3.jpg', title = "item1", width = "800px"),
hr(),
h4("Check list of previous items:"),
verbatimTextOutput(ns("CheckEmission"))
......
......@@ -19,9 +19,15 @@ mod_tabItemExposure_ui <- function(id){
title = "Exposure",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information about exposure ..."),
hr(),
h4("Check list of previous items:"),
......
......@@ -19,9 +19,15 @@ mod_tabItemHost_ui <- function(id){
title = "Host",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Location of host plants."),
hr(),
h4("Check list of previous items:"),
......
......@@ -20,9 +20,15 @@ mod_tabItemInteractiveMap_ui <- function(id){
title = "Interactive Map",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information on Interactive Map ...")
)
),
......
......@@ -24,13 +24,42 @@ mod_tabItemLandscape_ui <- function(id){
title = "Landscape",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
p("In this part, you have to download the source file, the host file and to compute
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
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."),
img(src = 'www/modelScheme_item_1.jpg',
title = "item1", width = "800px")
# img(src = 'www/modelScheme_item_1.jpg',
# title = "item1", width = "800px"),
hr(),
column(width = 4,
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")
),
column(width = 4,
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")
)
)
),
fluidRow( # width of fluidrow is 12
......@@ -205,18 +234,6 @@ mod_tabItemLandscape_ui <- function(id){
leafletOutput(ns("mapLANDSCAPE"))
)
)
),
fluidRow(
box(title = "Next",
width = 12, status = "primary",
solidHeader = TRUE,
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: #3c8dbc; border-color: #3c8dbc")
)
)
)
}
......@@ -321,19 +338,6 @@ mod_tabItemLandscape_server <- function(input, output, session, r){
output$textEPSGsource = renderText({
paste("EPSG initial:", sf::st_crs(r$landscapeSOURCE)$epsg)
})
# output$plotSOURCE <- renderPlot({
# pltSOURCE = ggplot(data = r$landscapeSOURCE) +
# theme_minimal() +
# geom_sf()
# if(!is.null(r$landscapeSOURCE)){
# if(!is.null(r$IDsource) || !(r$IDsource == "")){
# pltSOURCE = pltSOURCE +
# geom_sf_text(data = r$landscapeSOURCE,
# aes_string(label = r$IDsource))
# }
# }
# return(pltSOURCE)
# })
# HOST
## OBSERVE
observe({
......@@ -414,12 +418,12 @@ mod_tabItemLandscape_server <- function(input, output, session, r){
r$landscapeSQUAREFRAME <- sf::st_transform(r$landscapeSQUAREFRAME, crs = as.numeric(r$ctrlEPSGsqFrame))
}
}
} #else {
# if(!is.null(r$landscapeSOURCE) || !is.null(r$landscapeHOST)){
}# else {
# if(!is.null(r$landscapeSOURCE) || !is.null(r$landscapeHOST)){
# r$landscapeSQUAREFRAME <- st_squared_geometry(list(r$landscapeSOURCE, r$landscapeHOST), buffer = r$squareFrameBuffer)
# }
# }
# }
#}
#}
#}
})
## OUTPUT
output$textEPSGsqFrame = renderText({
......
......@@ -19,9 +19,15 @@ mod_tabItemReport_ui <- function(id){
title = "Report",
# App title ----
fluidRow(
box(title = "Information",
solidHeader = TRUE,
width = 12, status = "info",
shinydashboardPlus::gradientBox(
title = " - Information",
width = 12,
icon = "fa-info-circle",
gradientColor = "purple",
boxToolSize = "xs",
collapsible = TRUE,
closable = FALSE,
footer_padding = FALSE,
p("Information on report ..."),
downloadButton(ns("downloadReport"),
"Download Report PDF",
......
......@@ -20,8 +20,8 @@ mod_tabItemStart_ui <- function(id){
fluidRow(
width = 12,
align="center",
h4(code("briskaR NTL Simulation Web App")),
h1("Welcome")
# h4(code("briskaR NTL Simulation Web App")),
h1("Welcome in briskaR NTL Simulation Web App")
),
fluidRow( # width of fluidrow is 12
width = 12,
......@@ -54,23 +54,24 @@ of the", strong("dynamics of toxin ingestion on lethal and sublethal effects at
)
),
fluidRow(
box(width =12,
# box(width =12,
align="center",
solidHeader = TRUE,
title = iconed("Start", "rocket"),
status = "success",
# solidHeader = TRUE,
# title = iconed("Start", "rocket"),
# status = "success",
actionButton('switchLandscapeTab',
label = h4("Click Here to Start Modelling"),
icon = icon("forward"),
style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc"),
hr(),
actionButton('switchLandscapeTab',
label = h5("Wait, you may need some", strong("information"), "about how the", strong("application"), "work... what is just the object of the next", strong("blue box.")),
icon = icon("pause"),
style="color: #fff; background-color: #00c0ef; border-color: #00c0ef")
)
style="color: #fff; background-color: #3c8dbc; border-color: #3c8dbc")
# hr(),
# actionButton('switchLandscapeTab',
# label = h5("Wait, you may need some", strong("information"), "about how the", strong("application"), "work... what is just the object of the next", strong("blue box.")),
# icon = icon("pause"),
# style="color: #fff; background-color: #00c0ef; border-color: #00c0ef")
# )
),
fluidRow(
hr(),
box(
solidHeader = TRUE,
width = 12, status = "info",
......
......@@ -25,6 +25,7 @@ usethis::use_package( "briskaR" ) # To call each time you need a new package
usethis::use_package( "sf" ) # To call each time you need a new package
usethis::use_package( "leaflet" ) # To call each time you need a new package
usethis::use_package( "shinydashboard" ) # To call each time you need a new package
usethis::use_package("shinydashboardPlus")
usethis::use_package( "ggplot2" ) # To call each time you need a new package
usethis::use_package( "rgdal" ) # To call each time you need a new package
usethis::use_package( "dplyr" ) # To call each time you need a new package
......
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