library()
## 读取 rds 文件,然后保存为文本文件
data <- readRDS("pneumonia_pathogens.rds")
(data, file = "pneumonia_pathogens.txt", sep = "\t", quote = F, = F)
## 读取文本文件,保存为rds文件
data <- fread("")
saveRDS(data, file = "")
library()
## 读取 rds 文件,然后保存为文本文件
data <- readRDS("pneumonia_pathogens.rds")
(data, file = "pneumonia_pathogens.txt", sep = "\t", quote = F, = F)
## 读取文本文件,保存为rds文件
data <- fread("")
saveRDS(data, file = "")