R語言字符串寫入文件-創(chuàng)新互聯(lián)

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)站建設(shè)服務(wù)，團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務(wù)；打造開放共贏平臺(tái)，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為維西企業(yè)提供專業(yè)的成都網(wǎng)站建設(shè)、成都做網(wǎng)站，維西網(wǎng)站改版等技術(shù)服務(wù)。擁有10多年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(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元起步，三天無理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

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

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

廣告

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