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

damage becomes adverse effects

parent c04b30c7
......@@ -16,7 +16,7 @@
mod_tabItemDamage_ui <- function(id){
ns <- NS(id)
tabItem(tabName = "damage",
title = "Damage",
title = "Adverse effects",
# App title ----
briskaRshinyApp::headerNavigationPage("backExposureTab", "switchInteractiveMapTab"),
fluidRow(
......@@ -38,7 +38,7 @@ mod_tabItemDamage_ui <- function(id){
h4("Check list of previous items"),
verbatimTextOutput(ns("CheckDamage")),
hr(),
h4("Computing damage"),
h4("Computing adverse effects"),
p("Once all elements in Check list is OK, this part allows to compute damage probability.
There are two options, either a classical dose response model based on LC50 and the Slope,
or through the GUTS modelling approach were the user has to upload the parameters."),
......@@ -62,7 +62,7 @@ mod_tabItemDamage_ui <- function(id){
For the parameters provided by default, exposure is in squarred meter
so we convert LC50 in square meter (451*10000)."),
withMathJax(
helpText('$$\\text{Damage}(x) = \\frac{1}{1 + (x/LC_{50})^{\text{slope}}}$$')
helpText('$$\\text{Effect}(x) = \\frac{1}{1 + (x/LC_{50})^{\text{slope}}}$$')
),
numericInput(inputId = ns("LC50DR"),
label = "LC50",
......@@ -164,18 +164,18 @@ mod_tabItemDamage_ui <- function(id){
box(title = iconed("Adverse effects", "cogs"),
solidHeader = TRUE,
width = 8, status = "success",
p("The graphic on the left is the histogram showing the probability distribution of Damage
p("The graphic on the left is the histogram showing the probability distribution of the adverse effect
(default example is survival probability) along the period cover by source exposure."),
p("Damage unit is the survival probability of larvae as provided by the histogram.
p("Adverse effect unit is the mortality probability of larvae as provided by the histogram.
So here, damage is the daily probability of survival at each laying site."),
column(width = 6,
plotOutput(ns("profileDAMAGE")),
p("You can download the data just generated through the CSV and the KML files."),
downloadButton(ns("download_DAMAGE"),
"Download Damage CSV",
"Download Adverse effects CSV",
style="color: #fff; background-color: #33595f; border-color: #052327"),
downloadButton(ns("download_DAMAGEkml"),
"Download Damage KML",
"Download Adverse effects KML",
style="color: #fff; background-color: #33595f; border-color: #052327")
),
column(width = 6,
......@@ -432,7 +432,7 @@ mod_tabItemDamage_server <- function(input, output, session, r){
ggplot() +
theme_minimal() +
labs(x = "Time", y = "Probability Distribution of Damage") +
labs(x = "Time", y = "Probability Distribution of Mortality") +
geom_line(data = DFdamage,
aes(x = Date, y = mean_DAMAGE), color = "red") +
geom_ribbon(data = DFdamage,
......@@ -467,7 +467,7 @@ mod_tabItemDamage_server <- function(input, output, session, r){
req(input$ctrlDATEMapDAMAGE)
ggplot() +
theme_minimal() +
scale_color_gradient(low = "green", high = "red", name = "Damage") +
scale_color_gradient(low = "green", high = "red", name = "Mortality") +
geom_sf(data = r$landscapeSOURCE, alpha = 0.2, fill = "red", color = "red") +
geom_sf(data = r$landscapeHOST, alpha = 0.2, fill = "blue", color = "blue") +
geom_sf(data = r$individualSITE_dev) +
......
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