Read aggregated Embrace Plus and Nowatch data

[hypebright]

@PCdLf some initial functionality to work with aggregated Embrace Plus data, and aggregated Nowatch data.

As discussed, this is still using zip files, but we can change that easily in a next PR.

For testing (I have wearables in the same folder as wearalyze, make sure paths are correct):

devtools::load_all()

# for zipfiles
nowatch_zipfile <- "../wearalyze/app/static/example_data/nowatch_large.zip"
nowatch_data <- wearables::read_nowatch(zipifle = nowatch_zipfile)
aggregate_nowatch_data <- wearables::aggregate_nowatch_data(nowatch_data)

embrace_plus_zipfile <- "../wearalyze/app/static/example_data/embrace-plus-agg_large.zip"
embrace_plus_data <- wearables::read_embrace_plus(zipfile = embrace_plus_zipfile, type = "aggregated")
aggregate_embrace_plus_data <- wearables::aggregate_embrace_plus_data(embrace_plus_data, "5 min")

e4_zipfile <- "../wearalyze/app/static/example_data/e4_large.zip"
e4_data <- wearables::read_e4(zipfile = e4_zipfile)
aggregate_e4_data <- wearables::aggregate_e4_data(e4_data)

# for folders
nowatch_folder <- "../wearalyze/app/static/example_data/nowatch_large"
nowatch_data <- wearables::read_nowatch(folder = nowatch_folder)
aggregate_nowatch_data <- wearables::aggregate_nowatch_data(nowatch_data)

embrace_plus_folder <- "../wearalyze/app/static/example_data/embrace-plus-agg_large"
embrace_plus_data <- wearables::read_embrace_plus(folder = embrace_plus_folder, type = "aggregated")
aggregate_embrace_plus_data <- wearables::aggregate_embrace_plus_data(embrace_plus_data, "5 min")

[hypebright]

As you know I'm no expert when it comes to analysing this data, but thebutter_lowpass_filter doesn't work the same as it does with other devices when there are a lot of NAs. The aggregated Embrace Plus data also has "data" present when the device wasn't worn. When I removed the NAs the flow seemed to work fine again, but would be good to double check what the implications are