rapids/src/features/wifi_features.R

source("renv/activate.R")
source("src/features/wifi/wifi_base.R")
library("dplyr")

if(!is.null(snakemake@input[["visible_access_points"]]) && is.null(snakemake@input[["connected_access_points"]])){
  wifi_data <- read.csv(snakemake@input[["visible_access_points"]], stringsAsFactors = FALSE)
  wifi_data <- wifi_data %>% mutate(connected = 0)
} else if(is.null(snakemake@input[["visible_access_points"]]) && !is.null(snakemake@input[["connected_access_points"]])){
  wifi_data <- read.csv(snakemake@input[["connected_access_points"]], stringsAsFactors = FALSE)
  wifi_data <- wifi_data %>% mutate(connected = 1)
} else if(!is.null(snakemake@input[["visible_access_points"]]) && !is.null(snakemake@input[["connected_access_points"]])){
  visible_access_points <- read.csv(snakemake@input[["visible_access_points"]], stringsAsFactors = FALSE)
  visible_access_points <- visible_access_points %>% mutate(connected = 0)
  connected_access_points <- read.csv(snakemake@input[["connected_access_points"]], stringsAsFactors = FALSE)
  connected_access_points <- connected_access_points %>% mutate(connected = 1)
  wifi_data <- bind_rows(visible_access_points, connected_access_points) %>% arrange(timestamp)
}

wifi_data <- read.csv(snakemake@input[[1]], stringsAsFactors = FALSE)
day_segments <- read.csv(snakemake@input[["day_segments"]])
requested_features <-  snakemake@params[["features"]]
features = data.frame(local_date = character(), stringsAsFactors = FALSE)


day_segments <- day_segments %>% distinct(label) %>% pull(label)
# Compute base wifi features
for (day_segment in day_segments)
  features <- merge(features, base_wifi_features(wifi_data, day_segment, requested_features), by="local_date", all = TRUE)

if(ncol(features) != (length(requested_features)) * length(day_segments) + 1)
  stop(paste0("The number of features in the output dataframe (=", ncol(features),") does not match the expected value (=", length(requested_features)," + 1). Verify your wifi feature extraction functions"))

write.csv(features, snakemake@output[[1]], row.names = FALSE)