From d853a9526e6a5ebf29a85f8f0c619e5ef90aa670 Mon Sep 17 00:00:00 2001
From: thierrychambert <thierry.chambert@gmail.com>
Date: Fri, 23 Jul 2021 10:01:49 +0200
Subject: [PATCH] saved Shiny files with encoding ISO-8859-1 to allow accents
(French text)
---
inst/ShinyApp/server.R | 8 ++---
inst/ShinyApp/ui.R | 76 +++++++++++++++++++++---------------------
run_shiny.R | 8 ++---
3 files changed, 46 insertions(+), 46 deletions(-)
diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R
index 2dfc32c..cf19df8 100644
--- a/inst/ShinyApp/server.R
+++ b/inst/ShinyApp/server.R
@@ -92,7 +92,7 @@ server <- function(input, output){
if(input$lambda_input_type == "Elicitation d'expert"){
shinyjs::show("pop_growth_mat_expert")
}
- if(input$lambda_input_type == "Tendance locale ou régionale"){
+ if(input$lambda_input_type == "Tendance locale ou régionale"){
shinyjs::show("pop_trend")
shinyjs::show("pop_trend_strength")
}
@@ -307,13 +307,13 @@ server <- function(input, output){
# Info outputs
- output$fatalities_mean_info <- renderText({paste0("Moyenne des mortalités : ", input$fatalities_mean)})
- output$fatalities_se_info <- renderText({paste0("Ecart-type des mortalités : ", input$fatalities_se)})
+ output$fatalities_mean_info <- renderText({paste0("Moyenne des mortalités : ", input$fatalities_mean)})
+ output$fatalities_se_info <- renderText({paste0("Ecart-type des mortalités : ", input$fatalities_se)})
output$pop_size_mean_info <- renderText({paste0("Moyenne Taille de pop : ", input$pop_size_mean)})
output$pop_size_se_info <- renderText({paste0("Ecart-type Taille de pop : ", input$pop_size_se)})
- output$carrying_capacity_info <- renderText({paste0("Moyenne Capacité de charge : ", input$carrying_capacity)})
+ output$carrying_capacity_info <- renderText({paste0("Moyenne Capacité de charge : ", input$carrying_capacity)})
output$pop_trend_type_info <- renderText({paste0("Type de Tendance de pop : ", input$lambda_input_type)})
output$pop_trend_mean_info <- renderText({paste0("Moyenne Tendance de pop : ", param$pop_growth_mean)})
diff --git a/inst/ShinyApp/ui.R b/inst/ShinyApp/ui.R
index 49c0cff..be6c434 100644
--- a/inst/ShinyApp/ui.R
+++ b/inst/ShinyApp/ui.R
@@ -8,7 +8,7 @@ library(tidyverse)
library(eolpop)
-#â™ Species data / list
+#??? Species data / list
species_data <- read.csv("./inst/ShinyApp/species_list.csv", sep = ",")
species_list <- unique(as.character(species_data$NomEspece))
@@ -37,17 +37,17 @@ rMAX_species
##--------------------------------------------
ui <- fluidPage(
useShinyjs(),
- titlePanel("eolpop : Impact demographique des éoliennes"),
+ titlePanel("eolpop : Impact demographique des éoliennes"),
# Creation of the first page (select species, analysis type choice)
wellPanel(
selectInput(inputId = "species_list",
- h4(strong("Sélection d'une espèce ou groupe d'espèces")),
+ h4(strong("Sélection d'une espèce ou groupe d'espèces")),
choices = species_list),
radioButtons(inputId = "analysis_choice",
- h4(strong("Sélectionner un type d'analyse")),
- choices = c("Impacts non cumulés" = "scenario", "Impacts cumulés" = "cumulated"))
+ h4(strong("Sélectionner un type d'analyse")),
+ choices = c("Impacts non cumulés" = "scenario", "Impacts cumulés" = "cumulated"))
), # End wellPanel
@@ -59,7 +59,7 @@ ui <- fluidPage(
fluidRow(
column(width = 6,
textOutput(outputId = "specie_name"),
- h4("Mortalités"),
+ h4("Mortalités"),
textOutput(outputId = "fatalities_mean_info"),
textOutput(outputId = "fatalities_se_info"),
textOutput(outputId = "fatalities_expert_info"),
@@ -69,7 +69,7 @@ ui <- fluidPage(
textOutput(outputId = "pop_size_expert_info")),
fluidRow(
column(width = 6,
- h4("Capacité de charge"),
+ h4("Capacité de charge"),
textOutput(outputId = "carrying_capacity_info"),
textOutput(outputId = "carrying_cap_expert_info"),
h4("Tendance de la population"),
@@ -92,25 +92,25 @@ ui <- fluidPage(
##--------------------------------------------
actionButton(inputId = "button_fatalities",
- label = "Mortalités"),
+ label = "Mortalités"),
radioButtons(inputId = "fatal_constant",
- label = h4("Modélisation"),
- choices = c("Taux de mortalités (h) constant" = "h",
- "Nombre de mortalités (M) constant" = "M")),
+ label = h4("Modélisation"),
+ choices = c("Taux de mortalités (h) constant" = "h",
+ "Nombre de mortalités (M) constant" = "M")),
### Part for non-cumulated impacts
# Input type
radioButtons(inputId = "fatalities_input_type",
- label = h4("Source des données"),
+ label = h4("Source des données"),
choices = c("Valeurs", "Elicitation d'expert")),
# Values
numericInput(inputId = "fatalities_mean",
- label = "Moyenne des mortalités annuelles",
+ label = "Moyenne des mortalités annuelles",
value = 5,
min = 0, max = Inf, step = 0.5),
numericInput(inputId = "fatalities_se",
- label = "Ecart-type des mortalités annuelles",
+ label = "Ecart-type des mortalités annuelles",
value = 0.05,
min = 0, max = Inf, step = 0.1),
@@ -124,14 +124,14 @@ ui <- fluidPage(
### Part for cumulated impacts
numericInput(inputId = "farm_number_cumulated",
- label = "Nombre de parcs éoliens",
+ label = "Nombre de parcs éoliens",
value = 2, min = 2, max = Inf, step = 1),
matrixInput(inputId = "fatalities_mat_cumulated",
value = matrix(data = data_fatalities, 3, 3,
dimnames = list(c("#1", "#2", "#3"),
- c("Moyennes des mortalités annuelles",
- "Ecart-type des mortalités annuelles",
- "Année de mise en service du parc"))),
+ c("Moyennes des mortalités annuelles",
+ "Ecart-type des mortalités annuelles",
+ "Année de mise en service du parc"))),
class = "numeric",
rows = list(names = TRUE),
cols = list(names = TRUE)),
@@ -146,7 +146,7 @@ ui <- fluidPage(
label = "Taille de la population"),
radioButtons(inputId = "pop_size_type",
- label = h4("Unité"),
+ label = h4("Unité"),
choices = c("Nombre de couple" = "Npair", "Effectif total" = "Ntotal")),
radioButtons(inputId = "pop_size_input_type",
@@ -179,14 +179,14 @@ ui <- fluidPage(
br(" "),
actionButton(inputId = "button_carrying_cap",
- label = "Capacité de charge"),
+ label = "Capacité de charge"),
radioButtons(inputId = "carrying_cap_input_type",
- label = h4("Type d'unité"),
+ label = h4("Type d'unité"),
choices = c("Valeurs", "Elicitation d'expert")),
numericInput(inputId = "carrying_capacity",
- label = "Capacité de charge",
+ label = "Capacité de charge",
value = 1000,
min = 0, max = Inf, step = 100),
@@ -206,7 +206,7 @@ ui <- fluidPage(
radioButtons(inputId = "lambda_input_type",
label = h4("Type de tendance"),
- choices = c("Taux de croissance", "Elicitation d'expert", "Tendance locale ou régionale")),
+ choices = c("Taux de croissance", "Elicitation d'expert", "Tendance locale ou régionale")),
numericInput(inputId = "pop_growth_mean",
label = "Moyenne de la croissance de la population",
@@ -226,7 +226,7 @@ ui <- fluidPage(
radioButtons(inputId = "pop_trend",
label = h4("Tendance de la population"),
- choices = c("Croissance", "Stable", "Déclin")),
+ choices = c("Croissance", "Stable", "Déclin")),
radioButtons(inputId = "pop_trend_strength",
label = NULL,
@@ -240,20 +240,20 @@ ui <- fluidPage(
br(" "),
actionButton(inputId = "button_vital_rates",
- label = "Paramètres démographiques"),
+ label = "Paramètres démographiques"),
radioButtons(inputId = "fill_type_vr",
label = "Type de saisie",
choices = c("Automatique", "Manuelle")),
matrixInput(inputId = "mat_display_vr",
- value = matrix("", 4, 2, dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fécondité"))),
+ value = matrix("", 4, 2, dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fécondité"))),
class = "numeric",
rows = list(names = TRUE),
cols = list(names = TRUE)),
matrixInput(inputId = "mat_fill_vr",
- value = matrix(data = data_vr, 4, 2, dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fécondité"))),
+ value = matrix(data = data_vr, 4, 2, dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fécondité"))),
class = "numeric",
rows = list(names = TRUE),
cols = list(names = TRUE))
@@ -277,33 +277,33 @@ ui <- fluidPage(
br(),
actionButton(inputId = "run", label = "Lancer l'analyse"),
hr(),
- h4("Graphique : Impact relatif de chaque scénario", align = "center"),
+ h4("Graphique : Impact relatif de chaque scénario", align = "center"),
plotOutput("graph_impact", width = "100%", height = "550px"),
hr(),
- h4("Graphique : Trajectoire démographique", align = "center"),
+ h4("Graphique : Trajectoire démographique", align = "center"),
plotOutput("graph_traj", width = "100%", height = "550px")),
- tabPanel(title = "Distribution paramètres",
+ tabPanel(title = "Distribution paramètres",
br(),
actionButton(inputId = "run_expert", label = "Analyse"),
br(),
hr(),
- h4("#Graphe élicitation d'expert pour les mortalités", align = "center"),
+ h4("#Graphe élicitation d'expert pour les mortalités", align = "center"),
textOutput(outputId = "fatalities_expert_mean"),
textOutput(outputId = "fatalities_expert_sqrt_var"),
plotOutput(outputId = "fatalities_expert_plot"),
hr(),
- h4("#Graphe élicitation d'expert pour la taille de la population", align = "center"),
+ h4("#Graphe élicitation d'expert pour la taille de la population", align = "center"),
textOutput(outputId = "pop_size_expert_mean"),
textOutput(outputId = "pop_size_expert_sqrt_var"),
plotOutput(outputId = "pop_size_expert_plot"),
hr(),
- h4("#Graphe élicitation d'expert pour la capacité de charge", align = "center"),
+ h4("#Graphe élicitation d'expert pour la capacité de charge", align = "center"),
textOutput(outputId = "carrying_cap_expert_mean"),
textOutput(outputId = "carrying_cap_expert_sqrt_var"),
plotOutput(outputId = "carrying_cap_expert_plot"),
hr(),
- h4("#Graphe élicitation d'expert pour la tendance de la population", align = "center"),
+ h4("#Graphe élicitation d'expert pour la tendance de la population", align = "center"),
textOutput(outputId = "pop_growth_expert_mean"),
textOutput(outputId = "pop_growth_expert_sqrt_var"),
plotOutput(outputId = "pop_growth_expert_plot"),
@@ -312,16 +312,16 @@ ui <- fluidPage(
tabPanel(title = "Rapport",
br(),
radioButtons(inputId = "lifestyle",
- h4("Mode de vie de l'espèce"),
- choices = c("Sédentaire", "Non-sédentaire nicheur", "Non-sédentaire hivernant", "Migrateur de passage")),
+ h4("Mode de vie de l'espèce"),
+ choices = c("Sédentaire", "Non-sédentaire nicheur", "Non-sédentaire hivernant", "Migrateur de passage")),
numericInput(inputId = "wind_turbines",
- h4("Nombre d'éoliennes"),
+ h4("Nombre d'éoliennes"),
value = 5, min = 0, max = Inf, step = 1),
numericInput(inputId = "farm_number",
h4("Nombre de parcs"),
value = 1, min = 0, max = Inf, step = 1),
numericInput(inputId = "wind_turbines_2",
- h4("Nombre d'éoliennes"),
+ h4("Nombre d'éoliennes"),
value = 1, min = 0, max = Inf, step = 1)
) # End tabPanel
diff --git a/run_shiny.R b/run_shiny.R
index 487b2c5..c845766 100644
--- a/run_shiny.R
+++ b/run_shiny.R
@@ -1,4 +1,4 @@
-source("C:/rdev/eolpop/inst/ShinyApp/ui.R")
-source("C:/rdev/eolpop/inst/ShinyApp/server.R")
-
-shinyApp(ui = ui, server = server)
+source("C:/rdev/eolpop/inst/ShinyApp/ui.R")
+source("C:/rdev/eolpop/inst/ShinyApp/server.R")
+
+shinyApp(ui = ui, server = server)
--
GitLab