R/fibdl_listflor_validate.R

In SebastienBoutry/IBDL: Outil de calcul l'Indice Biologique Diatomées en Lac

#' Validation des listes floristiques
#'
#' @param data listes floristiques harmonisées via la fonction fibdl_listflor_transcode
#'
#' @return tableau des listes floristiques validées selon trois critères :
#'
#' @export
#'
#' @examples
fibdl_listflor_validate <- function(data){
  ## create table validation
  table_validation <- fibdl_listflor_qualify(data)[["table_validation"]]
  ##
  table_listflor_validate <- data %>%
    dplyr::left_join(table_validation,
                     by="id_prelevement") %>%
    dplyr::filter(Validation==TRUE) %>%
    dplyr::select(id_prelevement,taxons,ab)
  ##
  return(table_listflor_validate)
}