R/add_full_date.r

Defines functions add_full_date

add_full_date <- function(x){
	# add 15/ between month and year for truncated date
	suppressWarnings(suppressMessages(require(lubridate)))

	lubridate::mdy(gsub( "(?<=^.{3})", "15/", x, perl=TRUE ))
}
injuryepi/injuryepi documentation built on Nov. 13, 2019, 12:13 p.m.