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)

或者

創(chuàng)新互聯(lián)長期為千余家客戶提供的網(wǎng)站建設服務，團隊從業(yè)經(jīng)驗10年，關注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為維西企業(yè)提供專業(yè)的成都網(wǎng)站建設、成都做網(wǎng)站，維西網(wǎng)站改版等技術服務。擁有10多年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。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()

另外有需要云服務器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內外云服務器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務器、裸金屬服務器、高防服務器、香港服務器、美國服務器、虛擬主機、免備案服務器”等云主機租用服務以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應用場景需求。

網(wǎng)站欄目：R語言字符串寫入文件-創(chuàng)新互聯(lián)
文章路徑：http://weahome.cn/article/dcoego.html