R/parseIdentifier.R

Defines functions parseIdentifier

Documented in parseIdentifier

#' Parse Datetime from a Local Identifier
#' @import stringr
#' @import lubridate
#' @export

parseIdentifier <-
        function(identifier) {

                paste0(format(Sys.Date(), "%Y"),
                        stringr::str_pad(identifier,
                                         width = 10,
                                         side = "left",
                                         pad = "0")) %>%
                        lubridate::ymd_hms(quiet = TRUE)

        }
patelm9/hemOncExt documentation built on Dec. 2, 2020, 1:35 a.m.