R/formulePS.R

Defines functions formulePS

formulePS <- 
  function(fname) 
  {
    ## Récupération du fichier déposé sur le FTP Prévi
    if (missing(fname)) {
      fname <- grep("formule", listPrevi(), value=TRUE)
      tmp <- tempfile(fileext = "formulePS.txt")
      download.file(fname, destfile = tmp)
      fname <- tmp
    }
    ## Chargement du fichier
    x <- read.table(tmp, comment.char = "#", header=FALSE)
    names(x) <- c("bv","pl", "w")
    x$pl <- gsub("Pl$","", x$pl)
    ## on reclasse la tableau par poids décroissants 
    x <- x[order(x$w, decreasing = TRUE),]
    ## 
    ## regroupement des pluvio par bassins
    plab <- with(x, sprintf("%s (%s)", pl, w))
    PS <- tapply(plab, x$bv, paste, collapse=" + ")
    ##
    ## Regroupement des bassins par pluvio
    blab <- with(x, sprintf("%s (%s)", bv, w))
    BV <- tapply(blab, x$pl, paste, collapse=" + ")
    ##
    ## Mise en forme WIKI des tableau
    
    ## Résultats
    list(form=list(PS,BV), wiki=NULL) 
  }
coolTot/DtgRecup documentation built on May 12, 2017, 9:45 a.m.