inst/Vigicrue/server.R

## ! A éditer et sauvegarder dans l'encodage UTF-8 !
##
## Interface web <<Shiny>> pour Vigcrue
require(shiny)
require(DtgRecup)

shinyServer(
  function(input, output) 
  {
    ## Variables réactives     
    vigiValue <- reactive({
      id = input$station
      n = input$depth
      if (id>0) getVigicrue.q(id, n) 
      else NULL
    })
    exit <- observe({ 
      if (input$stop>0) stopApp()
    })
<<<<<<< HEAD
    open <- observe({ 
      if (input$browse > 0) {
        setInternet2(TRUE)
        browseURL("http://www.vigicrues.ecologie.gouv.fr/")
      }
        
      
    })
    ## 
    output$vigiPrint <- renderPrint({
      validate(
        need(input$station > 0,"Choisissez une station !"),
        need(!is.null(vigiValue()), "Pas de valeurs en mémoire !" ) 
      )
=======
    exit <- observe({ 
      if (input$stop>0) stopApp()
    })    
    open <- observe({ 
      if (input$browse > 0)
        browseURL("http://www.vigicrues.ecologie.gouv.fr/")
    })
    ## 
    output$vigiPrint <- renderPrint({
>>>>>>> 53ae716ce8775c9fd36538db2ce00c6b918e4778
      if (input$station>0) print(vigiValue(), print.gap=2, digits=2)
    }) 
    
    output$vigiPlot <- renderPlot({
<<<<<<< HEAD
      validate(
        need(input$station > 0,"Choisissez une station !"),
        need(!is.null(vigiValue()), "Pas de valeurs en mémoire !" ) 
      )
=======
>>>>>>> 53ae716ce8775c9fd36538db2ce00c6b918e4778
      par(cex=1.5) 
      if (input$station>0) plot(vigiValue())
    })
    
  })
coolTot/DtgRecup documentation built on May 12, 2017, 9:45 a.m.