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