Fix day segment error with no rows

pull/103/head
JulioV 2020-09-18 17:19:11 -04:00
parent 3c27bb2d18
commit 3022a60fe9
1 changed files with 3 additions and 1 deletions

View File

@ -25,7 +25,9 @@ find_segments_event <- function(timestamp, segments){
}
assign_to_day_segment <- function(sensor_data, day_segments, day_segments_type, include_past_periodic_segments){
if(nrow(sensor_data) == 0)
return(sensor_data %>% mutate(assigned_segments = NA))
if(day_segments_type == "FREQUENCY"){ #FREQUENCY
day_segments <- day_segments %>% mutate(start_time = lubridate::hm(start_time),