fixed table output for metadata

unlock2biom.R

@@ -40,7 +40,7 @@ colnames(metadata) = names
 # metadata$label = metadata$V1
 # metadata = subset(metadata, select = -V1)
 # colnames(metadata)[1]
-write.table(metadata, file = paste0(PREFIX, "_metadata_table.tsv"))
+write.table(metadata, file = paste0(PREFIX, "_metadata_table.tsv"), row.names = FALSE, quote = FALSE, sep = "\t")
 
 ## ASV
 asv = read.table(asv_file, header = FALSE)