R/chronique.periode.R

In jbfagotfede39/aquatools: Tools for freshwater managers

#' Filtrage d'une chronique
#'
#' Cette fonction permet de filtrer la période d'intérêt. La valeur de début est l'heure sélectionnée +1, la valeur de fin est strictement inférieure à celle indiquée
#' @name chronique.periode
#' @param deb Date de début (2015-02-01 14:00:00)
#' @param fin Date de fin (2015-02-04 14:00:00)
#' @keywords chronique
#' @import tidyverse
#' @export
#' @examples
#' chronique.periode(Data, "2015-02-04 11:00:00")
#' chronique.periode(Data, "2015-02-04 14:00:00")
#' chronique.periode(Data, "2015-02-04 11:00:00", "2015-02-04 14:00:00")

chronique.periode <- function(x = Data, deb = "", fin = "")

{

  if (nchar(deb) == 0){
  fin <- ymd_hms(fin)
  x <-
    x %>% 
    mutate(Time = ymd_hms(paste(chmes_date, chmes_heure, sep = "_"))) %>% 
    filter(Time < fin) %>%
    dplyr::select(-Time)
}
  
if (nchar(fin) == 0){
  deb <- ymd_hms(deb)
  x <-
    x %>% 
    mutate(Time = ymd_hms(paste(chmes_date, chmes_heure, sep = "_"))) %>% 
    filter(Time > deb) %>%
    dplyr::select(-Time)
}

if (nchar(deb) != 0 & nchar(fin) != 0){
  deb <- ymd_hms(deb)
  fin <- ymd_hms(fin)
  x <-
    x %>% 
    mutate(Time = ymd_hms(paste(chmes_date, chmes_heure, sep = "_"))) %>% 
    filter(Time > deb, Time < fin) %>% 
    dplyr::select(-Time)
}
  
  ## Affichage des résultats ##
  return(x)
}