Reducing Multiple Rows in a Dataset to One Row Per Hour Separated by Device Using R and the dplyr Library