Fix bug while checking OS in stream_schema

pull/128/head
Meng Li 2021-03-08 18:51:33 -05:00 committed by JulioV
parent 8c79cfc56f
commit 6b13c80e40
1 changed files with 1 additions and 1 deletions

View File

@ -140,7 +140,7 @@ pull_phone_data <- function(){
device_os <- ifelse(device_oss[idx] == "infer", infer_device_os_container(data_configuration, device), device_oss[idx]) device_os <- ifelse(device_oss[idx] == "infer", infer_device_os_container(data_configuration, device), device_oss[idx])
validate_inferred_os(basename(stream_container), participant_file, device, device_os) validate_inferred_os(basename(stream_container), participant_file, device, device_os)
if(!toupper(device_os) %in% stream_schema[[sensor]]) # the current sensor is only available in a single OS (like PHONE_MESSAGES) if(!toupper(device_os) %in% names(stream_schema[[sensor]])) # the current sensor is only available in a single OS (like PHONE_MESSAGES)
next next
os_table <- ifelse(length(tables) > 1, tables[[toupper(device_os)]], tables) # some sensor tables have a different name for android and ios os_table <- ifelse(length(tables) > 1, tables[[toupper(device_os)]], tables) # some sensor tables have a different name for android and ios