Вы можете использовать sub
здесь:
x <- c("11/18/2018 3:29:00 PM", "2/21/2018 7:54:26 AM", "11/5/2016 12:44:16 AM",
"6/29/2018 2:26:28 PM")
out <- sub("\\s*\\d+:\\d+:\\d+ [AP]M$", "", x)
out
[1] "11/18/2018" "2/21/2018" "11/5/2016" "6/29/2018"
Но вам, вероятно, будет лучше хранить ваши метки времени как фактический тип даты, например, POSIXCT.Тогда вы сможете использовать API для извлечения только части даты.