R/t_char_to_date.R

In VincentGuyader/nresidr: An Amazing Shiny App

#' @importFrom lubridate hms hm
#' @importFrom magrittr %>%
t_char_to_date <- function(t){

if (is.character(t)){
  res <- NA
  try(res <- lubridate::hms(t) %>%  as.Date(origin=Sys.Date()),silent=TRUE)
  if (is.na(res)){
    res <- lubridate::hm(t) %>%  as.Date(origin=Sys.Date())
    sec = FALSE
  }
  t <- res
}

t
  }