Fix calls bug

pull/95/head
JulioV 2020-06-02 19:13:01 -04:00
parent 91c24a652a
commit 3c1bdb8aa7
1 changed files with 1 additions and 1 deletions

View File

@ -23,7 +23,7 @@ base_call_features <- function(call, call_type, day_segment, requested_features)
features_to_compute <- intersect(base_features_names, requested_features)
# Filter rows that belong to the calls type and day segment of interest
calls <- calls %>% filter(call_type == ifelse(type == "incoming", "1", ifelse(type == "outgoing", "2", "3"))) %>%
calls <- calls %>% filter(call_type == ifelse(call_type == "incoming", "1", ifelse(call_type == "outgoing", "2", "3"))) %>%
filter_by_day_segment(day_segment)
print(calls)
# If there are not features or data to work with, return an empty df with appropiate columns names