R/app_server.R

In gowachin/shinyDiveR: shinyDiveR

#' The application server-side
#' 
#' @param input,output,session Internal parameters for {shiny}. 
#'     DO NOT REMOVE.
#' @import shiny DiveR
#' @importFrom shinyjs hide show
#' @noRd
app_server <- function( input, output, session ) {
  # List the first level callModules here
  #### Translation ####
  # Allow for changing the 
  translator <- shinyDiveR::i18n
  # UI change of translation
  observeEvent(input$selected_language, {
    # This print is just for demonstration
    print(paste("Language change!", input$selected_language))
    # Here is where we update language in session
    shiny.i18n::update_lang(session, input$selected_language)
  })
  # serveur translation
  i18n <- reactive({
    selected <- input$selected_language
    if (length(selected) > 0 && selected %in% translator$get_languages()) {
      translator$set_translation_language(selected)
    }
    translator
  })
  
  # Prod
  if( golem::get_golem_options("app_prod") ){
    shinyjs::hide(selector = "#navbar li a[data-value=conso]")
  } else {
    shinyjs::show(selector = "#navbar li a[data-value=conso]")
  }
  
  #### serveur part ####
  r <- reactiveValues()
  
  observe({
    r$dives <- mod_01_squareUI_server('square', i18n, r)
    mod_02_consoUI_server('conso', i18n, input$"square-sec_plot", r$dives, r)
  })
}