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")