From https://stackoverflow.com/a/62535671/2169986. Useful for handling edge cases with empty data. e.g. virusbreakend.vcf.summary.tsv
Usage
empty_tbl(cnames, ctypes = readr::cols(.default = "c"))
Examples
(x <- empty_tbl(cnames = c("a", "b", "c")))
#> # A tibble: 0 × 3
#> # ℹ 3 variables: a <chr>, b <chr>, c <chr>