From dba2664ae517fa412cb8f6666f5e3a9f9ec5e7e7 Mon Sep 17 00:00:00 2001 From: JulioV Date: Thu, 5 Mar 2020 14:48:48 -0500 Subject: [PATCH] Fix bug where location_barnett_metrics wouldn't include local_date --- src/features/location_barnett_metrics.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/features/location_barnett_metrics.R b/src/features/location_barnett_metrics.R index 7ce0b9e5..08f78c36 100644 --- a/src/features/location_barnett_metrics.R +++ b/src/features/location_barnett_metrics.R @@ -31,6 +31,7 @@ accuracy_limit <- snakemake@params[["accuracy_limit"]] timezone <- snakemake@params[["timezone"]] metrics_to_include <- intersect(unlist(snakemake@params["metrics"], use.names = F), c("hometime","disttravelled","rog","maxdiam","maxhomedist","siglocsvisited","avgflightlen","stdflightlen","avgflightdur","stdflightdur","probpause","siglocentropy","minsmissing","circdnrtn","wkenddayrtn")) +metrics_to_include <- c("local_date", metrics_to_include) # By deafult we use all raw locations: fused without resampling and not fused (gps, network) location <- read.csv(snakemake@input[["raw"]], stringsAsFactors = F) %>% @@ -61,4 +62,4 @@ if (nrow(location) > 1){ } else { write_empty_file(snakemake@output[[1]], metrics_to_include) -} \ No newline at end of file +}