2020-05-02 01:46:04 +02:00
|
|
|
source("renv/activate.R")
|
2020-03-09 18:32:14 +01:00
|
|
|
|
|
|
|
library(tidyr)
|
|
|
|
library(purrr)
|
|
|
|
library(dplyr)
|
|
|
|
library(stringr)
|
|
|
|
|
2020-04-16 18:38:28 +02:00
|
|
|
feature_files <- snakemake@input[["feature_files"]]
|
2020-03-09 18:32:14 +01:00
|
|
|
|
2020-04-16 18:38:28 +02:00
|
|
|
|
|
|
|
features_of_all_participants <- tibble(filename = feature_files) %>% # create a data frame
|
2020-03-09 18:32:14 +01:00
|
|
|
mutate(file_contents = map(filename, ~ read.csv(., stringsAsFactors = F, colClasses = c(local_date = "character"))),
|
2020-03-18 02:15:53 +01:00
|
|
|
pid = str_match(filename, ".*/([a-zA-Z]+?[0-9]+?)/.*")[,2]) %>%
|
|
|
|
unnest(cols = c(file_contents)) %>%
|
2020-03-09 18:32:14 +01:00
|
|
|
select(-filename)
|
|
|
|
|
2020-04-16 18:38:28 +02:00
|
|
|
write.csv(features_of_all_participants, snakemake@output[[1]], row.names = FALSE)
|