out_con <- file("out.txt", "w") write(sprintf("This is line %d.\n",1),out_con,append=T) write("This is line 2.",out_con,append=T) close(out_con)

或者

创新互联长期为千余家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为维西企业提供专业的成都网站建设、成都做网站，维西网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。printer = file("out.txt","w") writeLines("This is line.",con=printer,sep=" ") writeLines("The same line.",con=printer) close(printer)

参考:

http://grokbase.com/t/r/r-help/137hry3mga/r-writing-multiple-lines-to-a-file

也可以用sink

sink("tmp_out.txt") con <- file("raw.txt", "r") line <- readLines(con, n=1) while(length(line) != 0) {    c = unlist(strsplit(line, "\t"))    if (c[1] == "Contig") {           #k_test <- rbind(k_test, c)           cat(line)           cat("\n")    }    else if (as.numeric(c[1]) %in% g.out$name) {           ##a <- sapply(c, as.numeric)          ##k_test <- rbind(k_test, a)          cat(line)          cat("\n")    }    line = readLines(con, n=1) } close(con) sink()

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网站名称：R语言字符串写入文件-创新互联
分享链接：http://njwzjz.com/article/dcoego.html