junos
/
rapids
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix call bug

pull/95/head
JulioV 2020-06-03 16:29:01 -04:00
parent d0bff906e4
commit bf6f1f0bda
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/features/call/call_base.R
View File

@ -23,8 +23,10 @@ base_call_features <- function(calls, 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(call_type == "incoming", "1", ifelse(call_type == "outgoing", "2", "3"))) %>%
filter_by_day_segment(day_segment)
call_type_label = ifelse(call_type == "incoming", "1", ifelse(call_type == "outgoing", "2", ifelse(call_type == "missed", "3", NA)))
if(is.na(call_type_label))
stop(paste("Call type can online be incoming, outgoing or missed but instead you typed: ", call_type))
calls <- calls %>% filter(call_type == call_type_label) %>% filter_by_day_segment(day_segment)
# If there are not features or data to work with, return an empty df with appropiate columns names
if(length(features_to_compute) == 0)