From 68125dc1bfba1740523da9718332e3f8d9d0ae92 Mon Sep 17 00:00:00 2001
From: Meng Li <34143965+Meng6@users.noreply.github.com>
Date: Mon, 5 Apr 2021 20:57:05 +0000
Subject: [PATCH] Fix the bug of phone data yield features when the input is
 empty

---
 src/features/phone_data_yield/rapids/main.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/features/phone_data_yield/rapids/main.R b/src/features/phone_data_yield/rapids/main.R
index 57473e98..50040d2d 100644
--- a/src/features/phone_data_yield/rapids/main.R
+++ b/src/features/phone_data_yield/rapids/main.R
@@ -4,6 +4,8 @@ library(readr)
 
 compute_data_yield_features <- function(data, feature_name, time_segment, provider){
   data <- data %>% filter_data_by_segment(time_segment)
+  if(nrow(data) == 0)
+    return(tibble(ratiovalidyieldedminutes = numeric(), ratiovalidyieldedhours = numeric()))
   features <- data %>%
     separate(timestamps_segment, into = c("start_timestamp", "end_timestamp"), convert = T, sep = ",") %>% 
     mutate(duration_minutes = (end_timestamp - start_timestamp) / 60000,