Tengo el siguiente marco de datos:
        Id      SleepDay
       <dbl>    <chr>
1	1503960366	4/12/2016 12:00:00 AM		
2	1503960366	4/13/2016 12:00:00 AM

Quiero eliminar de la cadena 4/12/2016 12:00:00 AM
que me quede de esta forma solo la cadena fecha: 4/12/2016 para luego convertirlo a tipo date.
Lo que intento hacer es extraer desde la posición 1 hasta que consiga el primer espacio y restarle 1 posición:

**sleep_Day <- mutate(sleep_Day, SleepDay = substring(sleep_Day$SleepDay,1," ")) 
me trae NA**