R/ajoute_nom_cdreseaumesure.R

In AnthonyDEBUR/tools4DCE: Tools for rivers water quality monitoring

#' ajoute_nom_cdreseaumesure
#'
#' fonction pour ajouter le nom du code réseau de mesure sandre à une data frame
#'
#' @param x data.frame avec le code réseau
#' @param col_cdreseau : nom de la colonne avec le code accréditation Valeur par défaut : CdRdd
#'
#'
#' @return la fonction le data.frame complété de la colonne NomRdd
#'
#' @examples test<-data.frame(CdRdd2=c("0300000209", "0300000211"))
#' @examples ajoute_nom_cdreseaumesure(test, col_cdreseau="CdRdd2")
#' @export

ajoute_nom_cdreseaumesure <-
  function(x,
           col_cdreseau = "CdRdd") {
    data("reseaux_sandre", envir = environment())

    reseaux <- reseaux %>% select(CodeSandreRdd, NomRdd)

    return(left_join(x, reseaux, by = setNames("CodeSandreRdd", col_cdreseau)))
  }