Commit 5662458e authored by cedricbriandgithub's avatar cedricbriandgithub
Browse files

Merge branch 'develop_sat_age' into develop

parents 39b5a46f 723bac95
Pipeline #62262 failed with stage
in 32 seconds
......@@ -59,9 +59,9 @@ app_server <- function( input, output, session ) {
# mod_sat_age -----------------------------
mod_sat_age_server("sat_age_ui_1")
DD$button_ref_stage_sat_age <- mod_ref_stage_server("ref_stage_sat_age", DD, mytab="sat_age")
DD$button_ref_parquan_sat_age <- mod_ref_parquan_server("ref_parquan_sat_age",DD, mytab="sat_age")
mod_ang_argentee_server("ang_argentee_ui_1")
mod_civ_poids_server("civ_poids_ui_1")
mod_bilan_dc_server("bilan_dc_ui_1")
......
......@@ -94,9 +94,9 @@ mod_ref_par_server <- function(id, DD, mytab){
warning("Pas de stade sélectionné")
} # end else ref_stage
}
} else {
warning("ref_par !! Pas de taxon sélectionné")
} # end else ref_taxa
} #else {
#warning("Pas de taxon sélectionné")
#} #end else ref_taxa
}
} else {
warning("Pas de dc sélectionné")
......
......@@ -101,9 +101,9 @@ mod_ref_parqual_server <- function(id, DD, mytab){
warning("Pas de stade sélectionné")
} # end else ref_stage
}
} else {
warning("ref_parqual !!Pas de taxon sélectionné")
} # end else ref_taxa
} #else {
#warning("Pas de taxon sélectionné")
#} # end else ref_taxa
}
} else {
warning("Pas de dc sélectionné")
......
......@@ -121,9 +121,9 @@ mod_ref_parquan_server <- function(id, DD, mytab){
warning("Pas de stade sélectionné")
} # end else ref_stage
}
} else {
warning("ref_parquan !! Pas de taxon sélectionné")
} # end else ref_taxa
} #else {
#warning("Pas de taxon sélectionné")
#} # end else ref_taxa
}
} else {
warning("Pas de dc sélectionné")
......
......@@ -65,6 +65,7 @@ mod_ref_stage_server <- function(id, DD, mytab){
ref_dc <- rlang::env_get(envir_stacomi, "ref_dc", default=NULL)
ref_taxa <- rlang::env_get(envir_stacomi, "ref_taxa", default=NULL)
if (!is.null(ref_dc)){
if (length(ref_dc@dc_selected)>0){
if (!is.null(ref_taxa) ){
......@@ -99,7 +100,7 @@ mod_ref_stage_server <- function(id, DD, mytab){
output$test_stage <- renderText(envir_stacomi$ref_stage@stage_selected)
}
} #else {
#warning("ref_stage !!Pas de taxon sélectionné")
#warning("Pas de taxon sélectionné")
#} # end else ref_taxa
}
} else {
......@@ -108,7 +109,6 @@ mod_ref_stage_server <- function(id, DD, mytab){
# remove it when done
}# end if is.null(ref_dc)
},
blocking_level = "error")
},
......
......@@ -20,7 +20,7 @@ mod_sat_age_ui <- function(id){
width = 3,
dateInput(ns("sat_age.datedebut"), label = h5("Choisissez une date de début :"), value = "2014-01-01"),
dateInput(ns("sat_age.datefin"), label = h5("Choisissez une date de fin :"), value = "2015-01-01"),
mod_ref_parquan_ui("ref_parquan_sat_age"),
mod_ref_parquan_ui("ref_parquan_sat_age"),
numericInput(ns("sat_age.num1"), label = h5("Choisissez la taille max en mm des 1 an de mer :"), value = 650),
numericInput(ns("sat_age.num2"), label = h5("Choisissez la taille max en mm des 2 ans de mer :"), value = 850),
checkboxGroupInput(ns("choix_sorties"),
......@@ -94,7 +94,6 @@ mod_sat_age_server <- function(id,DD){
#validate(need(length(ref_parquan@par_selected) >0, "No parm selected"))
r_sat_age <- choice_c(r_sat_age,
dc=ref_dc@dc_selected,
# stage=ref_stage,
par = ref_parquan@par_selected,
horodatedebut=input$sat_age.datedebut,
horodatefin=input$sat_age.datefin,
......@@ -127,7 +126,6 @@ mod_sat_age_server <- function(id,DD){
if (input$box_summary_sat_age$collapsed) shinydashboardPlus::updateBox("box_summary_sat_age", action = "toggle")
tab<-table(r_sat_age@calcdata$data$ope_dic_identifiant,r_sat_age@calcdata$data$age)
tab2<-data.frame(tab)
#tab2<-data.frame(DC=rep(unique(r_sat_age@calcdata$data$ope_dic_identifiant),each=nrow(tab)),tab)
colnames(tab2)<-c("DC","Age_mer","Effectif")
tab2<-dplyr::arrange(tab2,DC)
output$tab_sat_age <- renderDT({
......
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