2020-05-02 01:46:04 +02:00
source ( " renv/activate.R" )
2020-06-24 21:46:27 +02:00
source ( " src/features/wifi/wifi_base.R" )
2020-04-13 19:24:52 +02:00
library ( dplyr )
2020-06-24 21:46:27 +02:00
wifi_data <- read.csv ( snakemake @ input [ [1 ] ] , stringsAsFactors = FALSE )
2020-04-13 19:24:52 +02:00
day_segment <- snakemake @ params [ [ " day_segment" ] ]
requested_features <- snakemake @ params [ [ " features" ] ]
features = data.frame ( local_date = character ( ) , stringsAsFactors = FALSE )
2020-06-24 21:46:27 +02:00
# Compute base wifi features
features <- merge ( features , base_wifi_features ( wifi_data , day_segment , requested_features ) , by = " local_date" , all = TRUE )
if ( ncol ( features ) != length ( requested_features ) + 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" ) )
2020-04-13 19:24:52 +02:00
2020-06-24 21:46:27 +02:00
write.csv ( features , snakemake @ output [ [1 ] ] , row.names = FALSE )