From e2b2643ba9886c28fb48adfba3c7dbd74bd1d910 Mon Sep 17 00:00:00 2001 From: JulioV Date: Thu, 9 Apr 2020 12:10:03 -0400 Subject: [PATCH] Fix bug that unified battery status for iOS client v2 --- src/data/unify_ios_android.R | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/data/unify_ios_android.R b/src/data/unify_ios_android.R index 7abb02e8..eaa69139 100644 --- a/src/data/unify_ios_android.R +++ b/src/data/unify_ios_android.R @@ -3,9 +3,12 @@ source("packrat/init.R") library(dplyr) unify_ios_battery <- function(ios_battery){ - ios_battery <- ios_battery %>% - mutate(battery_status = replace(battery_status, battery_status == 3, 5), - battery_status = replace(battery_status, battery_status == 1, 3)) + # We only need to unify battery data for iOS client V1. V2 does it out-of-the-box + # V1 will not have rows where battery_status is equal to 4 + if(nrow(ios_battery %>% filter(battery_status == 4)) == 0) + ios_battery <- ios_battery %>% + mutate(battery_status = replace(battery_status, battery_status == 3, 5), + battery_status = replace(battery_status, battery_status == 1, 3)) } unify_ios_calls <- function(ios_calls){