Fix bug where location_barnett_metrics wouldn't include local_date
parent
c2a74b1cba
commit
dba2664ae5
|
@ -31,6 +31,7 @@ accuracy_limit <- snakemake@params[["accuracy_limit"]]
|
||||||
timezone <- snakemake@params[["timezone"]]
|
timezone <- snakemake@params[["timezone"]]
|
||||||
metrics_to_include <- intersect(unlist(snakemake@params["metrics"], use.names = F),
|
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"))
|
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)
|
# By deafult we use all raw locations: fused without resampling and not fused (gps, network)
|
||||||
location <- read.csv(snakemake@input[["raw"]], stringsAsFactors = F) %>%
|
location <- read.csv(snakemake@input[["raw"]], stringsAsFactors = F) %>%
|
||||||
|
@ -61,4 +62,4 @@ if (nrow(location) > 1){
|
||||||
|
|
||||||
} else {
|
} else {
|
||||||
write_empty_file(snakemake@output[[1]], metrics_to_include)
|
write_empty_file(snakemake@output[[1]], metrics_to_include)
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue