扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
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年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为五华企业提供专业的成都网站设计、做网站，五华网站改版等技术服务。拥有十多年丰富建站经验和众多成功案例,为您定制开发。
或者
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()
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网