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