R/CAT_taxonomy_to_krona_format.R

In uashogeschoolutrecht/structural_colours: Package For Project Structural Colour

CAT_taxonomy_to_krona_format = function(CAT_file, outfile){
  file = read.csv(file = CAT_file, sep = "\t")
  krona_cols = file[,-c(3,4,5)]
  krona_cols$X..contig = 1
  write.table(krona_cols, file = outfile, sep = "\t",
              col.names = FALSE, row.names = FALSE, quote = FALSE)
}