library(data.table)
## 讀取 rds 文件，然后保存為文本文件
data <- readRDS("pneumonia_pathogens.rds")
write.table(data, file = "pneumonia_pathogens.txt", sep = "\t", quote = F, row.names = F)
## 讀取文本文件，保存為rds文件
data <- fread("file.txt")
saveRDS(data, file = "file.rds")