Skip to content
Snippets Groups Projects
Commit 4e0aad5e authored by thierrychambert's avatar thierrychambert
Browse files

corrected survival_fecundities csv file 

replace ";" by "," to fix header issue
parent 51878f0c
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
inst/ShinyApp/server.R
+ 20
− 20
View file @ 4e0aad5e
...@@ -100,7 +100,7 @@ server <- function(input, output, session){ ...@@ -100,7 +100,7 @@ server <- function(input, output, session){
shinyjs::show("pop_growth_mat_expert") shinyjs::show("pop_growth_mat_expert")
shinyjs::show("pop_growth_run_expert") shinyjs::show("pop_growth_run_expert")
} }
if(input$lambda_input_type == "Tendance locale ou régionale"){ if(input$lambda_input_type == "Tendance locale ou rgionale"){
shinyjs::show("pop_trend") shinyjs::show("pop_trend")
shinyjs::show("pop_trend_strength") shinyjs::show("pop_trend_strength")
} }
...@@ -225,7 +225,7 @@ server <- function(input, output, session){ ...@@ -225,7 +225,7 @@ server <- function(input, output, session){
param$onset_time = NULL param$onset_time = NULL
param$fatalities_se <- c(0, round(param$fatalities_eli_result$SE)) param$fatalities_se <- c(0, round(param$fatalities_eli_result$SE))
} else { } else {
print("#Intégrer un message d'erreur") print("#Intgrer un message d'erreur")
} }
} else { } else {
param$fatalities_mean <- c(0, input$fatalities_mean) param$fatalities_mean <- c(0, input$fatalities_mean)
...@@ -249,7 +249,7 @@ server <- function(input, output, session){ ...@@ -249,7 +249,7 @@ server <- function(input, output, session){
param$pop_size_mean <- round(param$pop_size_eli_result$mean) param$pop_size_mean <- round(param$pop_size_eli_result$mean)
param$pop_size_se <- round(param$pop_size_eli_result$SE) param$pop_size_se <- round(param$pop_size_eli_result$SE)
} else { } else {
print("#intégrer un message d'erreur") print("#intgrer un message d'erreur")
} }
} else { } else {
param$pop_size_mean <- input$pop_size_mean param$pop_size_mean <- input$pop_size_mean
...@@ -267,9 +267,9 @@ server <- function(input, output, session){ ...@@ -267,9 +267,9 @@ server <- function(input, output, session){
param$pop_growth_mean <- round(min(1 + param$rMAX_species, round(param$pop_growth_eli_result$mean, 2)), 2) param$pop_growth_mean <- round(min(1 + param$rMAX_species, round(param$pop_growth_eli_result$mean, 2)), 2)
param$pop_growth_se <- round(param$pop_growth_eli_result$SE, 2) param$pop_growth_se <- round(param$pop_growth_eli_result$SE, 2)
} else { } else {
print("#intégrer un message d'erreur") print("#intgrer un message d'erreur")
} }
} else if(input$lambda_input_type == "Tendance locale ou régionale"){ } else if(input$lambda_input_type == "Tendance locale ou rgionale"){
if(input$pop_trend == "Croissance") { if(input$pop_trend == "Croissance") {
if(input$pop_trend_strength == "Faible") { if(input$pop_trend_strength == "Faible") {
param$pop_growth_mean <- 1.01 param$pop_growth_mean <- 1.01
...@@ -278,7 +278,7 @@ server <- function(input, output, session){ ...@@ -278,7 +278,7 @@ server <- function(input, output, session){
} else { } else {
param$pop_growth_mean <- 1.06 param$pop_growth_mean <- 1.06
} }
} else if(input$pop_trend == "Déclin"){ } else if(input$pop_trend == "Dclin"){
if(input$pop_trend_strength == "Faible") { if(input$pop_trend_strength == "Faible") {
param$pop_growth_mean <- 0.99 param$pop_growth_mean <- 0.99
} else if(input$pop_trend_strength == "Moyen"){ } else if(input$pop_trend_strength == "Moyen"){
...@@ -335,7 +335,7 @@ server <- function(input, output, session){ ...@@ -335,7 +335,7 @@ server <- function(input, output, session){
if(!(is.null(param$carrying_cap_eli_result))){ if(!(is.null(param$carrying_cap_eli_result))){
param$carrying_capacity <- round(param$carrying_cap_eli_result$mean) param$carrying_capacity <- round(param$carrying_cap_eli_result$mean)
} else { } else {
print("#intégrer un message d'erreur") print("#intgrer un message d'erreur")
} }
} else { } else {
param$carrying_capacity <- input$carrying_capacity param$carrying_capacity <- input$carrying_capacity
...@@ -420,7 +420,7 @@ server <- function(input, output, session){ ...@@ -420,7 +420,7 @@ server <- function(input, output, session){
else { else {
info <- input$fatalities_mean info <- input$fatalities_mean
} }
paste0("Moyenne des mortalités : ", info) paste0("Moyenne des mortalits : ", info)
}) })
output$fatalities_se_info <- renderText({ output$fatalities_se_info <- renderText({
...@@ -432,7 +432,7 @@ server <- function(input, output, session){ ...@@ -432,7 +432,7 @@ server <- function(input, output, session){
else { else {
info <- input$fatalities_se info <- input$fatalities_se
} }
paste0("Ecart-type des mortalités : ", info) paste0("Ecart-type des mortalits : ", info)
}) })
## Poplutation size ## Poplutation size
...@@ -480,7 +480,7 @@ server <- function(input, output, session){ ...@@ -480,7 +480,7 @@ server <- function(input, output, session){
else { else {
info <- input$carrying_capacity info <- input$carrying_capacity
} }
paste0("Capacité de charge du milieu : ", info) paste0("Capacit de charge du milieu : ", info)
}) })
## Population growth ## Population growth
...@@ -492,7 +492,7 @@ server <- function(input, output, session){ ...@@ -492,7 +492,7 @@ server <- function(input, output, session){
if(!(is.null(param$pop_growth_eli_result))){ if(!(is.null(param$pop_growth_eli_result))){
info <- round(param$pop_growth_eli_result$mean, 2) info <- round(param$pop_growth_eli_result$mean, 2)
} else {info <- NA} } else {info <- NA}
} else if(input$lambda_input_type == "Tendance locale ou régionale"){ } else if(input$lambda_input_type == "Tendance locale ou rgionale"){
if(input$pop_trend == "Croissance") { if(input$pop_trend == "Croissance") {
if(input$pop_trend_strength == "Faible") { if(input$pop_trend_strength == "Faible") {
info <- 1.01 info <- 1.01
...@@ -501,7 +501,7 @@ server <- function(input, output, session){ ...@@ -501,7 +501,7 @@ server <- function(input, output, session){
} else { } else {
info <- 1.06 info <- 1.06
} }
} else if(input$pop_trend == "Déclin"){ } else if(input$pop_trend == "Dclin"){
if(input$pop_trend_strength == "Faible") { if(input$pop_trend_strength == "Faible") {
info <- 0.99 info <- 0.99
} else if(input$pop_trend_strength == "Moyen"){ } else if(input$pop_trend_strength == "Moyen"){
...@@ -523,7 +523,7 @@ server <- function(input, output, session){ ...@@ -523,7 +523,7 @@ server <- function(input, output, session){
if(!(is.null(param$pop_growth_eli_result))){ if(!(is.null(param$pop_growth_eli_result))){
info <- round(param$pop_growth_eli_result$SE, 2) info <- round(param$pop_growth_eli_result$SE, 2)
} else {info <- NA} } else {info <- NA}
} else if (input$lambda_input_type == "Tendance locale ou régionale") { } else if (input$lambda_input_type == "Tendance locale ou rgionale") {
info <- 0.03 info <- 0.03
} }
else { else {
...@@ -547,7 +547,7 @@ server <- function(input, output, session){ ...@@ -547,7 +547,7 @@ server <- function(input, output, session){
observeEvent({input$farm_number_cumulated}, { observeEvent({input$farm_number_cumulated}, {
rows_names <- function(n){ rows_names <- function(n){
v <- c(paste0("Parc n°", c(1:n))) v <- c(paste0("Parc n", c(1:n)))
return(v) return(v)
} }
...@@ -560,9 +560,9 @@ server <- function(input, output, session){ ...@@ -560,9 +560,9 @@ server <- function(input, output, session){
updateMatrixInput(session, inputId = "fatalities_mat_cumulated", updateMatrixInput(session, inputId = "fatalities_mat_cumulated",
value = matrix("", nrow = nrow, 3, value = matrix("", nrow = nrow, 3,
dimnames = list(number_parks, dimnames = list(number_parks,
c("Moyennes des mortalités annuelles", c("Moyennes des mortalits annuelles",
"Ecart-type des mortalités annuelles", "Ecart-type des mortalits annuelles",
"Année de mise en service du parc")))) "Anne de mise en service du parc"))))
}) })
# Survivals and Fecundities # Survivals and Fecundities
...@@ -575,7 +575,7 @@ server <- function(input, output, session){ ...@@ -575,7 +575,7 @@ server <- function(input, output, session){
} }
observeEvent({input$species_list}, { observeEvent({input$species_list}, {
if(input$species_list == "Espèce") {} else { if(input$species_list == "Espce") {} else {
tab_species <- create.matrice(input$species_list) tab_species <- create.matrice(input$species_list)
if(all(is.na(tab_species))) { if(all(is.na(tab_species))) {
...@@ -583,7 +583,7 @@ server <- function(input, output, session){ ...@@ -583,7 +583,7 @@ server <- function(input, output, session){
value = matrix(data = "", value = matrix(data = "",
nrow = 4, nrow = 4,
ncol = 2, ncol = 2,
dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fécondité")))) dimnames = list(c("Juv 1", "Juv 2", "Juv 3", "Adulte"), c("Survie", "Fcondit"))))
} else { } else {
number_age_class <- nrow(tab_species) number_age_class <- nrow(tab_species)
...@@ -595,7 +595,7 @@ server <- function(input, output, session){ ...@@ -595,7 +595,7 @@ server <- function(input, output, session){
value = matrix(data = c(survivals, fecundities), value = matrix(data = c(survivals, fecundities),
nrow = number_age_class, nrow = number_age_class,
ncol = 2, ncol = 2,
dimnames = list(ages, c("Survie", "Fécondité")))) dimnames = list(ages, c("Survie", "Fcondit"))))
} }
} }
}) })
......
inst/ShinyApp/survivals_fecundities_species.csv
+ 10
− 10
View file @ 4e0aad5e
Nom_espece;classes_age;survie;fecondite Nom_espece,classes_age,survie,fecondite
Aigle botté;Juv 1;0.5;0 Aigle botté,Juv 1,0.5,0
Aigle botté;Juv 2;0.7;0 Aigle botté,Juv 2,0.7,0
Aigle botté;Juv 3;0.8;0.05 Aigle botté,Juv 3,0.8,0.05
Aigle botté;Adulte;0.95;0.55 Aigle botté,Adulte,0.95,0.55
Aigle de Bonelli;Juv 1;0.4;0 Aigle de Bonelli,Juv 1,0.4,0
Aigle de Bonelli;Juv 2;0.55;0 Aigle de Bonelli,Juv 2,0.55,0
Aigle de Bonelli;Juv 3;0.6;0.05 Aigle de Bonelli,Juv 3,0.6,0.05
Aigle de Bonelli;Juv 4;0.65;0.3 Aigle de Bonelli,Juv 4,0.65,0.3
Aigle de Bonelli;Adulte;0.8;0.4 Aigle de Bonelli,Adulte,0.8,0.4
\ No newline at end of file
inst/ShinyApp/ui.R
+ 46
− 41
View file @ 4e0aad5e
...@@ -10,10 +10,15 @@ library(eolpop) ...@@ -10,10 +10,15 @@ library(eolpop)
# source("./inst/ShinyApp/f_output.R") # source("./inst/ShinyApp/f_output.R")
source("./inst/ShinyApp/param_fixes.R") source("./inst/ShinyApp/param_fixes.R")
species_data <- read.csv("./inst/ShinyApp/species_list.csv", sep = ",") species_data <- read.csv("./inst/ShinyApp/species_list.csv", sep = ",")
species_list <- unique(as.character(species_data$NomEspece)) head(species_data)
# species_list <- unique(as.character(species_data$NomEspece))
species_list <- species_data$NomEspece
data_sf <- read.csv("./inst/ShinyApp/survivals_fecundities_species.csv", sep = ";", encoding = "UTF-8") data_sf <- read.csv("./inst/ShinyApp/survivals_fecundities_species.csv", sep = ",")#, encoding = "UTF-8")
head(data_sf)
# Fixed parameters (for now) # Fixed parameters (for now)
...@@ -42,17 +47,17 @@ rMAX_species ...@@ -42,17 +47,17 @@ rMAX_species
##-------------------------------------------- ##--------------------------------------------
ui <- fluidPage( ui <- fluidPage(
useShinyjs(), useShinyjs(),
titlePanel("eolpop : Impact demographique des éoliennes"), titlePanel("eolpop : Impact demographique des oliennes"),
# Creation of the first page (select species, analysis type choice) # Creation of the first page (select species, analysis type choice)
wellPanel( wellPanel(
selectInput(inputId = "species_list", selectInput(inputId = "species_list",
h4(strong("Sélection d'une espèce ou groupe d'espèces")), h4(strong("Slection d'une espce ou groupe d'espces")),
choices = species_list), choices = species_list),
radioButtons(inputId = "analysis_choice", radioButtons(inputId = "analysis_choice",
h4(strong("Sélectionner un type d'analyse")), h4(strong("Slectionner un type d'analyse")),
choices = c("Impacts non cumulés" = "scenario", "Impacts cumulés" = "cumulated")) choices = c("Impacts non cumuls" = "scenario", "Impacts cumuls" = "cumulated"))
), # End wellPanel ), # End wellPanel
...@@ -64,7 +69,7 @@ ui <- fluidPage( ...@@ -64,7 +69,7 @@ ui <- fluidPage(
fluidRow( fluidRow(
column(width = 4, column(width = 4,
textOutput(outputId = "specie_name"), textOutput(outputId = "specie_name"),
h4("Mortalités"), h4("Mortalits"),
textOutput(outputId = "fatalities_mean_info"), textOutput(outputId = "fatalities_mean_info"),
textOutput(outputId = "fatalities_se_info"), textOutput(outputId = "fatalities_se_info"),
h4("Taille de la population"), h4("Taille de la population"),
...@@ -73,7 +78,7 @@ ui <- fluidPage( ...@@ -73,7 +78,7 @@ ui <- fluidPage(
textOutput(outputId = "pop_size_se_info")), textOutput(outputId = "pop_size_se_info")),
fluidRow( fluidRow(
column(width = 4, column(width = 4,
h4("Capacité de charge"), h4("Capacit de charge"),
textOutput(outputId = "carrying_capacity_info"), textOutput(outputId = "carrying_capacity_info"),
h4("Tendance de la population"), h4("Tendance de la population"),
textOutput(outputId = "pop_trend_type_info"), textOutput(outputId = "pop_trend_type_info"),
...@@ -81,7 +86,7 @@ ui <- fluidPage( ...@@ -81,7 +86,7 @@ ui <- fluidPage(
textOutput(outputId = "pop_growth_se_info")), textOutput(outputId = "pop_growth_se_info")),
fluidRow( fluidRow(
column(width = 4, column(width = 4,
h4("Paramètres démographiques"), h4("Paramtres dmographiques"),
tableOutput(outputId = "vital_rates_info")) tableOutput(outputId = "vital_rates_info"))
) )
) )
...@@ -99,25 +104,25 @@ ui <- fluidPage( ...@@ -99,25 +104,25 @@ ui <- fluidPage(
##-------------------------------------------- ##--------------------------------------------
actionButton(inputId = "button_fatalities", actionButton(inputId = "button_fatalities",
label = "Mortalités"), label = "Mortalits"),
radioButtons(inputId = "fatal_constant", radioButtons(inputId = "fatal_constant",
label = h4("Modélisation"), label = h4("Modlisation"),
choices = c("Taux de mortalités (h) constant" = "h", choices = c("Taux de mortalits (h) constant" = "h",
"Nombre de mortalités (M) constant" = "M")), "Nombre de mortalits (M) constant" = "M")),
### Part for non-cumulated impacts ### Part for non-cumulated impacts
# Input type # Input type
radioButtons(inputId = "fatalities_input_type", radioButtons(inputId = "fatalities_input_type",
label = h4("Source des données"), label = h4("Source des donnes"),
choices = c("Valeurs", "Elicitation d'expert")), choices = c("Valeurs", "Elicitation d'expert")),
# Values # Values
numericInput(inputId = "fatalities_mean", numericInput(inputId = "fatalities_mean",
label = "Moyenne des mortalités annuelles", label = "Moyenne des mortalits annuelles",
value = 5, value = 5,
min = 0, max = Inf, step = 0.5), min = 0, max = Inf, step = 0.5),
numericInput(inputId = "fatalities_se", numericInput(inputId = "fatalities_se",
label = "Ecart-type des mortalités annuelles", label = "Ecart-type des mortalits annuelles",
value = 0.05, value = 0.05,
min = 0, max = Inf, step = 0.1), min = 0, max = Inf, step = 0.1),
...@@ -133,15 +138,15 @@ ui <- fluidPage( ...@@ -133,15 +138,15 @@ ui <- fluidPage(
### Part for cumulated impacts ### Part for cumulated impacts
numericInput(inputId = "farm_number_cumulated", numericInput(inputId = "farm_number_cumulated",
label = "Nombre de parcs éoliens", label = "Nombre de parcs oliens",
value = 3, min = 2, max = Inf, step = 1), value = 3, min = 2, max = Inf, step = 1),
matrixInput(inputId = "fatalities_mat_cumulated", matrixInput(inputId = "fatalities_mat_cumulated",
value = matrix(data_fatalities, 3, 3, value = matrix(data_fatalities, 3, 3,
dimnames = list(c(paste0("Parc n°", c(1:3))), dimnames = list(c(paste0("Parc n", c(1:3))),
c("Moyennes des mortalités annuelles", c("Moyennes des mortalits annuelles",
"Ecart-type des mortalités annuelles", "Ecart-type des mortalits annuelles",
"Année de mise en service du parc"))), "Anne de mise en service du parc"))),
class = "numeric", class = "numeric",
rows = list(names = TRUE), rows = list(names = TRUE),
cols = list(names = TRUE)), cols = list(names = TRUE)),
...@@ -156,7 +161,7 @@ ui <- fluidPage( ...@@ -156,7 +161,7 @@ ui <- fluidPage(
label = "Taille de la population"), label = "Taille de la population"),
radioButtons(inputId = "pop_size_type", radioButtons(inputId = "pop_size_type",
label = h4("Unité"), label = h4("Unit"),
choices = c("Nombre de couple" = "Npair", "Effectif total" = "Ntotal")), choices = c("Nombre de couple" = "Npair", "Effectif total" = "Ntotal")),
radioButtons(inputId = "pop_size_input_type", radioButtons(inputId = "pop_size_input_type",
...@@ -191,14 +196,14 @@ ui <- fluidPage( ...@@ -191,14 +196,14 @@ ui <- fluidPage(
br(" "), br(" "),
actionButton(inputId = "button_carrying_cap", actionButton(inputId = "button_carrying_cap",
label = "Capacité de charge"), label = "Capacit de charge"),
radioButtons(inputId = "carrying_cap_input_type", radioButtons(inputId = "carrying_cap_input_type",
label = h4("Type d'unité"), label = h4("Type d'unit"),
choices = c("Valeurs", "Elicitation d'expert")), choices = c("Valeurs", "Elicitation d'expert")),
numericInput(inputId = "carrying_capacity", numericInput(inputId = "carrying_capacity",
label = "Capacité de charge", label = "Capacit de charge",
value = 1000, value = 1000,
min = 0, max = Inf, step = 100), min = 0, max = Inf, step = 100),
...@@ -220,7 +225,7 @@ ui <- fluidPage( ...@@ -220,7 +225,7 @@ ui <- fluidPage(
radioButtons(inputId = "lambda_input_type", radioButtons(inputId = "lambda_input_type",
label = h4("Type de tendance"), 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 rgionale")),
numericInput(inputId = "pop_growth_mean", numericInput(inputId = "pop_growth_mean",
label = "Moyenne de la croissance de la population", label = "Moyenne de la croissance de la population",
...@@ -244,7 +249,7 @@ ui <- fluidPage( ...@@ -244,7 +249,7 @@ ui <- fluidPage(
radioButtons(inputId = "pop_trend", radioButtons(inputId = "pop_trend",
label = NULL, label = NULL,
choices = c("Croissance", "Stable", "Déclin")), choices = c("Croissance", "Stable", "Dclin")),
radioButtons(inputId = "pop_trend_strength", radioButtons(inputId = "pop_trend_strength",
label = NULL, label = NULL,
...@@ -259,7 +264,7 @@ ui <- fluidPage( ...@@ -259,7 +264,7 @@ ui <- fluidPage(
br(" "), br(" "),
actionButton(inputId = "button_vital_rates", actionButton(inputId = "button_vital_rates",
label = "Paramètres démographiques"), label = "Paramtres dmographiques"),
radioButtons(inputId = "fill_type_vr", radioButtons(inputId = "fill_type_vr",
label = "Type de saisie", label = "Type de saisie",
...@@ -268,13 +273,13 @@ ui <- fluidPage( ...@@ -268,13 +273,13 @@ ui <- fluidPage(
# tableOutput(outputId = "mat_display_vr"), # tableOutput(outputId = "mat_display_vr"),
matrixInput(inputId = "mat_display_vr", 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", "Fcondit"))),
class = "numeric", class = "numeric",
rows = list(names = TRUE), rows = list(names = TRUE),
cols = list(names = TRUE)), cols = list(names = TRUE)),
matrixInput(inputId = "mat_fill_vr", 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", "Fcondit"))),
class = "numeric", class = "numeric",
rows = list(names = TRUE), rows = list(names = TRUE),
cols = list(names = TRUE)) cols = list(names = TRUE))
...@@ -298,41 +303,41 @@ ui <- fluidPage( ...@@ -298,41 +303,41 @@ ui <- fluidPage(
br(), br(),
actionButton(inputId = "run", label = "Lancer l'analyse"), actionButton(inputId = "run", label = "Lancer l'analyse"),
hr(), hr(),
h4("Graphique : Impact relatif de chaque scénario", align = "center"), h4("Graphique : Impact relatif de chaque scnario", align = "center"),
plotOutput("graph_impact", width = "100%", height = "550px"), plotOutput("graph_impact", width = "100%", height = "550px"),
hr(), hr(),
h4("Graphique : Trajectoire démographique", align = "center"), h4("Graphique : Trajectoire dmographique", align = "center"),
plotOutput("graph_traj", width = "100%", height = "550px")), plotOutput("graph_traj", width = "100%", height = "550px")),
tabPanel(title = "Distribution paramètres", tabPanel(title = "Distribution paramtres",
br(), br(),
hr(), hr(),
h4("#Graphe élicitation d'expert pour les mortalités", align = "center"), h4("#Graphe licitation d'expert pour les mortalits", align = "center"),
plotOutput(outputId = "fatalities_expert_plot"), plotOutput(outputId = "fatalities_expert_plot"),
hr(), 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"),
plotOutput(outputId = "pop_size_expert_plot"), plotOutput(outputId = "pop_size_expert_plot"),
hr(), 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"),
plotOutput(outputId = "carrying_cap_expert_plot"), plotOutput(outputId = "carrying_cap_expert_plot"),
hr(), 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"),
plotOutput(outputId = "pop_growth_expert_plot"), plotOutput(outputId = "pop_growth_expert_plot"),
), ),
tabPanel(title = "Rapport", tabPanel(title = "Rapport",
br(), br(),
radioButtons(inputId = "lifestyle", radioButtons(inputId = "lifestyle",
h4("Mode de vie de l'espèce"), h4("Mode de vie de l'espce"),
choices = c("Sédentaire", "Non-sédentaire nicheur", "Non-sédentaire hivernant", "Migrateur de passage")), choices = c("Sdentaire", "Non-sdentaire nicheur", "Non-sdentaire hivernant", "Migrateur de passage")),
numericInput(inputId = "wind_turbines", numericInput(inputId = "wind_turbines",
h4("Nombre d'éoliennes"), h4("Nombre d'oliennes"),
value = 5, min = 0, max = Inf, step = 1), value = 5, min = 0, max = Inf, step = 1),
numericInput(inputId = "farm_number", numericInput(inputId = "farm_number",
h4("Nombre de parcs"), h4("Nombre de parcs"),
value = 1, min = 0, max = Inf, step = 1), value = 1, min = 0, max = Inf, step = 1),
numericInput(inputId = "wind_turbines_2", numericInput(inputId = "wind_turbines_2",
h4("Nombre d'éoliennes"), h4("Nombre d'oliennes"),
value = 1, min = 0, max = Inf, step = 1) value = 1, min = 0, max = Inf, step = 1)
) # End tabPanel ) # End tabPanel
......
run_shiny.R
+ 4
− 4
View file @ 4e0aad5e
source("C:/rdev/eolpop/inst/ShinyApp/ui.R") source("C:/rdev/eolpop/inst/ShinyApp/ui.R")
source("C:/rdev/eolpop/inst/ShinyApp/server.R") source("C:/rdev/eolpop/inst/ShinyApp/server.R")
shinyApp(ui = ui, server = server) shinyApp(ui = ui, server = server)
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme