Refactor resample fused location to filter fused rows earlier

replace/62f4d0b09c671f3a6dd9d1806894dd6d2cf349ff
JulioV 2019-12-09 19:15:57 -05:00
parent cb2ee1ec82
commit 3947f1ec29
1 changed files with 19 additions and 20 deletions

View File

@ -10,7 +10,7 @@ timezone <- snakemake@params[["timezone"]]
consecutive_threshold <- snakemake@params[["consecutive_threshold"]]
time_since_valid_location <- snakemake@params[["time_since_valid_location"]]
locations <- read_csv(snakemake@input[["locations"]], col_types = cols())
locations <- read_csv(snakemake@input[["locations"]], col_types = cols()) %>% filter(provider == "fused")
phone_sensed_bins <- read_csv(snakemake@input[["phone_sensed_bins"]], col_types = cols(local_date = col_character()))
if(nrow(locations) > 0){
@ -23,7 +23,6 @@ if(nrow(locations) > 0){
select(timestamp)
resampled_locations <- locations %>%
filter(provider == "fused") %>%
bind_rows(sensed_minute_bins) %>%
arrange(timestamp) %>%
# We group and therefore, fill in, missing rows that appear after a valid fused location record and exist