14 lines
630 B
R
14 lines
630 B
R
source("renv/activate.R")
|
|
|
|
library("dplyr", warn.conflicts = F)
|
|
library("purrr")
|
|
|
|
feature_files <- snakemake@input[["feature_files"]]
|
|
|
|
features_for_individual_model <- feature_files %>%
|
|
map(read.csv, stringsAsFactors = F, colClasses = c(local_segment = "character", local_segment_label = "character", local_segment_start_datetime="character", local_segment_end_datetime="character")) %>%
|
|
reduce(full_join, by=c("local_segment","local_segment_label","local_segment_start_datetime","local_segment_end_datetime")) %>%
|
|
arrange(local_segment)
|
|
|
|
write.csv(features_for_individual_model, snakemake@output[[1]], row.names = FALSE)
|