Commit 220b51fc authored by cedricbriandgithub's avatar cedricbriandgithub
Browse files

Merge branch 'development_shinypsum' of...

Merge branch 'development_shinypsum' of git@forgemia.inra.fr:stacomi/stacoshiny.git into development_shinypsum
parents 6f950fe8 ab8d23ba
/.project
stacoshiny.Rproj
*.Rproj.*
.Rproj.user
.RData
.Rhistory
.settings
......@@ -4,6 +4,7 @@
library(shiny)
library(shinipsum)
#library(shinyjs) # enable/disable radiobuttons
library(DT)
library(bslib)
library(thematic) # auto theming of static R plots
......@@ -20,6 +21,14 @@ dark <- bs_theme(bg = "black", fg = "white", primary = "purple")
ui <- navbarPage("STACOSHINY",
theme = light,
tabPanel("Connexion",
sidebarLayout(
sidebarPanel(
),
mainPanel(
)
)
),
tabPanel("Migration",
sidebarLayout(
sidebarPanel(
......@@ -52,33 +61,172 @@ ui <- navbarPage("STACOSHINY",
tabPanel("Migrations multiples",
sidebarLayout(
sidebarPanel(
dateInput("date", label = h5("Choisissez une date de début :"), value = "2014-01-01"),
radioButtons("radio_station", label = h5("A quelle échelle voulez-vous faire le bilan ?"),
choices = list("DC" = 1, "Station" = 2),
selected = 1,inline=T),
selectizeInput('pas_temps', h5('Choisissez un pas de temps : '),
selected="1 jour", choices = c("1 sec", "1 min", "10 min","15 min","30 min","1 h","1 jour","1 sem","2 sem","1 mois","3 mois","6 mois","1 an"),
multiple = FALSE),
dateInput("date", label = h5("Choisissez une date de début :"), value = "2014-01-01"),
selectizeInput('pas_temps', h5('Choisissez un pas de temps : '),
selected="1 jour", choices = c("1 sec", "1 min", "10 min","15 min","30 min","1 h","1 jour","1 sem","2 sem","1 mois","3 mois","6 mois","1 an"),
multiple = FALSE),
numericInput("num", label = h5("Nombre de pas de temps :"), value = 365),
checkboxGroupInput("dc_mult", label = h5("Choisissez le ou les DC :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1),
checkboxGroupInput("taxon_mult", label = h5("Choisissez le ou les taxons :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1),
checkboxGroupInput("stade_mult", label = h5("Choisissez le ou les stades :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1)
),
mainPanel(
plotOutput("plot_migration_mult1")
# fluidRow(
# column(width = 6,
# plotOutput("plot_migration_mult1"),
# # DTOutput("data_table")
# ),
# column(width = 6,
# # tableOutput("text"),
# plotOutput("plot_migration_mult2")
# ))
fluidRow(
column(width = 6,
plotOutput("plot_migration_mult1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_migration_mult2")
))
))),
tabPanel("Summary",
verbatimTextOutput("summary")
),
tabPanel("Annuel",
sidebarLayout(
sidebarPanel(
radioButtons("radio_station", label = h5("A quelle échelle voulez-vous faire le bilan ?"),
choices = list("DC" = 1, "Station" = 2),
selected = 1,inline=T),
checkboxGroupInput("dc_mult", label = h5("Choisissez un ou plusieurs DC :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1),
sliderInput("annuel_date", label = h5("Choisissez l'année de début et de fin :"), min = 1980,
max = 2021, value = c(2011, 2021))
),
mainPanel(
fluidRow(
column(width = 6,
plotOutput("plot_annuel1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_annuel2")
))
))),
tabPanel("Interannuel",
sidebarLayout(
sidebarPanel(
radioButtons("radio_station", label = h5("A quelle échelle voulez-vous faire le bilan ?"),
choices = list("DC" = 1, "Station" = 2),
selected = 1,inline=T),
sliderInput("slider2", label = h5("Slider Range"), min = 1980,
max = 2021, value = c(2011, 2021)),
checkboxGroupInput("dc_mult", label = h5("Coisissez un ou plusieurs DC :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1)
),
mainPanel(
fluidRow(
column(width = 6,
plotOutput("plot_interannuel1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_interannuel2")
))
))),
navbarMenu("More",
tabPanel("Table",
DT::dataTableOutput("table")
)
tabPanel("SAT - Taille/Âge ",
sidebarLayout(
sidebarPanel(
h5("SAT - Bilan âge de mer"),
br(),
radioButtons("radio_station", label = h5("A quelle échelle voulez-vous faire le bilan ?"),
choices = list("DC" = 1, "Station" = 2),
selected = 1,inline=T),
dateRangeInput("dates", label = h5("Sélectionnez la date de début et de fin :")),
checkboxGroupInput("dc_mult", label = h5("Coisissez un ou plusieurs DC :"),
choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
selected = 1),
numericInput("num", label = h5("Choisissez la taille max en mm des 1 an de mer :"), value = 650),
numericInput("num", label = h5("Choisissez la taille max en mm des 2 ans de mer :"), value = 850),
),
mainPanel(
fluidRow(
column(width = 6,
plotOutput("plot_sat_age1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_sat_age2")
))
))),
tabPanel("ANG - Anguille argentée ",
sidebarLayout(
sidebarPanel(
dateRangeInput("dates", label = h5("Sélectionnez la date de début et de fin :")),
selectizeInput('ANG_DC', h5('Choisissez un DC :'),
selected="A", choices = c("A", "B"),
multiple = FALSE),
),
mainPanel(
fluidRow(
column(width = 6,
plotOutput("plot_ang1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_ang2")
))
))),
tabPanel("CIV - Poids moyen civelle ",
sidebarLayout(
sidebarPanel(
selectizeInput('ANG_eff', h5('Choisissez l\'effectif de l\'échantillon :' ),
selected="=1", choices = c("=1", ">1","Tous"),
multiple = FALSE),
selectizeInput('ANG_DC', h5('Choisissez un dispositif de comptage :' ),
selected="A", choices = c("A", "B","C"),
multiple = FALSE),
dateRangeInput("dates", label = h5("Sélectionnez la date de début et de fin :")),
),
mainPanel(
fluidRow(
column(width = 6,
plotOutput("plot_civ1"),
# DTOutput("data_table")
),
column(width = 6,
# tableOutput("text"),
plotOutput("plot_civ2")
))
)))
# tabPanel("About",
# fluidRow(
# column(6,
......@@ -176,7 +324,7 @@ server <- function(input, output, session) {
observe(session$setCurrentTheme(
if (isTRUE(input$dark_mode)) dark else light
))
output$plot_migration1 <- renderPlot({
plot(cars, type=input$plotType)
})
......@@ -197,11 +345,51 @@ server <- function(input, output, session) {
random_ggplot()
})
# output$plot_migration_mult2 <- renderPlot({
# random_ggplot()
# })
output$plot_migration_mult2 <- renderPlot({
random_ggplot()
})
output$plot_annuel1 <- renderPlot({
random_ggplot()
})
output$plot_annuel2 <- renderPlot({
random_ggplot()
})
output$plot_interannuel1 <- renderPlot({
random_ggplot()
})
output$plot_interannuel2 <- renderPlot({
random_ggplot()
})
output$plot_sat_age1 <- renderPlot({
random_ggplot()
})
output$plot_sat_age2 <- renderPlot({
random_ggplot()
})
output$plot_ang1 <- renderPlot({
random_ggplot()
})
output$plot_ang2 <- renderPlot({
random_ggplot()
})
output$plot_civ1 <- renderPlot({
random_ggplot()
})
output$plot_civ2 <- renderPlot({
random_ggplot()
})
output$summary <- renderPrint({
summary(cars)
})
......
Markdown is supported
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