coopR: Fonctions R pour la Coop

#' @title lister les dispositifs disponibles dans la BD INRA de la coop Chene
#'
#' @description Cette fonction charge les tables au format pret pour l'utilisation des fonctions du package, directement a partir de la Base de donnees
#'
#' @param nom, nom de l'utilisateur dans la base de donnees GIS Coop
#' @param mdp, mot de passe de l'utilisateur
#' @return une liste de dispositifs à utiliser pour les requetes
#'
#' @author Ingrid Seynave et Aurore Calas, Didier Francois, JP Renaud
#' @references Protocole Coop chene... document d Ingrid et Claudine
#'
#' @seealso  dico.ch, load_onf_ch, load_bdd_to_xls_ch
#' @examples
#' # A venir
#'
#' @keywords function
#'
#' @include coopR-package.R
#' @family coopR
#' @import DBI
#' @import RPostgreSQL
#' @import doBy
#' @import XLConnect
#' @export


liste_dispo_ch <- function(nom="monnom",                       # nom de l'utilisateur dans la base de donnees GIS Coop
                            mdp="motdepasse"       ) {
 drv <- dbDriver("PostgreSQL")
con <- postgresqlNewConnection(drv=drv,user=nom,password=mdp,host="postgres-national-priv-4.jouy.inra.fr",dbname="coop", port=54443)

  # vues <- dbGetQuery(con, "SELECT table_name from INFORMATION_SCHEMA.views")
  # ## vues <- dbGetQuery(con, "SELECT viewname from pg_catalog.pg_views")
  #
  # toto <- vues$table_name[order(vues$table_name)]
  #
  # c22 <- grepl(pattern = "22", toto) ## vues chene = qui contiennent 22
  #
  # toto[c22]
  #
  # champs <- dbGetQuery(con,  "SELECT  column_name from information_schema.columns
  #                      where table_name = 'dispositif22' ")
titi <- dbGetQuery(con, "SELECT * FROM dispositif22  ORDER BY id_dispositif DESC ")

  ############# sortie
  return(titi[,"lib_disp"])
}