R/server.R

In tomicapretto/cemrepboot: What the Package Does (One Line, Title Case)

server = function(input, output, session) {
  options(shiny.maxRequestSize = 300 * 1024 ^ 2) # 300 MB

  # Esto causa que cuando se refresque la pagina, se cierra la aplicacion.
  # session$onSessionEnded(shiny::stopApp)
  rvs = reactiveValues(datos = NULL, datos_replicas = NULL)

  shinyalert::shinyalert(
    imageUrl = "www/Logo.jpg",
    imageWidth = "400",
    imageHeight = "250",
    closeOnClickOutside = TRUE,
    showConfirmButton = FALSE
  )

  datosServer("datos", rvs)
  indicadoresServer("indicadores", rvs)
}