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 +}