#保存文件
write.table(final_gene$Var1,paste0(pro,"_gene_v2.txt",sep = ",",quote = F,row.names = F,col.names = F))
#报错
Error in file(file, ifelse(append, "a", "w")) : 'description'参数不对
此外: Warning message:
In if (file == "") file <- stdout() else if (is.character(file)) { :
条件的长度大于一，因此只能用其第一元素
#解决办法
library(plyr)
参考：https://stackoverflow.com/questions/38266790/r-error-in-filefile-ifelseappend-a-w-cannot-open-the-connection
