library(tidyverse)

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