2020-05-02 01:46:04 +02:00
|
|
|
source("renv/activate.R")
|
2020-06-30 23:34:18 +02:00
|
|
|
source("src/data/unify_utils.R")
|
2019-11-12 20:57:27 +01:00
|
|
|
|
|
|
|
sensor_data <- read.csv(snakemake@input[["sensor_data"]], stringsAsFactors = FALSE)
|
|
|
|
participant_info <- snakemake@input[["participant_info"]]
|
|
|
|
sensor <- snakemake@params[["sensor"]]
|
2020-06-30 23:34:18 +02:00
|
|
|
unifiable_sensors = snakemake@params[["unifiable_sensors"]]
|
|
|
|
|
|
|
|
platforms <- strsplit(readLines(participant_info, n=2)[[2]], ",")[[1]]
|
|
|
|
platform <- ifelse(platforms[1] == "multiple" | (length(platforms) > 1 & "android" %in% platforms & "ios" %in% platforms), "android", platforms[1])
|
|
|
|
|
|
|
|
sensor_data <- unify_data(sensor_data, sensor, platform, unifiable_sensors)
|
2019-11-12 20:57:27 +01:00
|
|
|
|
2019-12-05 22:24:05 +01:00
|
|
|
write.csv(sensor_data, snakemake@output[[1]], row.names = FALSE)
|