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

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

當(dāng)前名稱(chēng)：R語(yǔ)言字符串寫(xiě)入文件-創(chuàng)新互聯(lián)
當(dāng)前鏈接：http://www.rwnh.cn/article10/dcoego.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站改版、響應(yīng)式網(wǎng)站、小程序開(kāi)發(fā)、外貿(mào)建站、網(wǎng)站排名、微信公眾號(hào)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)