7 lines
170 B
R
7 lines
170 B
R
|
library(tidyverse)
|
||
|
|
|
||
|
|
snakemake@input %>%
|
||
|
|
map_dfr(~ readr::read_tsv(.x, col_types = "c")) %>%
|
||
|
|
replace_na(list(value = 0)) %>%
|
||
|
|
readr::write_tsv(snakemake@output[[1]])
|