2020-08-28 19:53:00 +02:00
|
|
|
source("renv/activate.R")
|
|
|
|
|
|
|
|
library("tidyr")
|
2020-10-23 16:41:00 +02:00
|
|
|
library("dplyr", warn.conflicts = F)
|
2020-08-28 19:53:00 +02:00
|
|
|
|
|
|
|
location_features_files <- snakemake@input[["location_features"]]
|
|
|
|
location_features <- setNames(data.frame(matrix(ncol = 1, nrow = 0)), c("local_segment"))
|
|
|
|
|
|
|
|
|
|
|
|
for(location_features_file in location_features_files){
|
|
|
|
location_features <- merge(location_features, read.csv(location_features_file), all = TRUE)
|
|
|
|
}
|
|
|
|
|
|
|
|
write.csv(location_features, snakemake@output[[1]], row.names = FALSE)
|