Metin dosyasını tek karakter dizesi olarak içe aktar

Düz metin dosyasını R'de tek karakter dizesi olarak nasıl içe aktarırsınız? Bunun çok basit bir cevabı olacağını düşünüyorum, ama bugün bunu denediğimde bunu yapacak bir fonksiyon bulamadığımı fark ettim.

Örneğin, foo.txtmetin oluşturmak istediğim bir şey içeren bir dosyam olduğunu varsayalım.

Ben denedim:

scan("foo.txt", what="character", sep=NULL)

ama bu yine de bir vektör döndürdü. Ben biraz ile çalışma var:

paste(scan("foo.txt", what="character", sep=" "),collapse=" ")

ama bu oldukça çirkin bir çözüm ve muhtemelen dengesiz.

İşte @JoshuaUlrich'in sabit kodlu boyut yerine doğru boyutu kullanan bir çözümü var:

fileName <- 'foo.txt'
readChar(fileName, file.info(fileName)$size)

ReadChar'in belirttiğiniz bayt sayısı için yer ayırdığını unutmayın, bu nedenle readChar(fileName, .Machine$integer.max)iyi çalışmaz ...

3 yıl sonra birisinin hala bu soruya bakması durumunda, Hadley Wickham'ın readr paketinin read_file()bunu sizin için yapacak kullanışlı bir işlevi vardır.

install.packages("readr") # you only need to do this one time on your system
library(readr)
mystring <- read_file("path/to/myfile.txt")

Aşağıdakileri kullanırdım. En azından benim için iyi çalışmalı ve çirkin görünmüyor:

singleString <- paste(readLines("foo.txt"), collapse=" ")

Nasıl olur:

string <- readChar("foo.txt",nchars=1e6)

Readr paketinin sizin için her şeyi yapacak bir işlevi vardır.

install.packages("readr") # you only need to do this one time on your system
library(readr)
mystring <- read_file("path/to/myfile.txt")

Bu, stringr paketindeki sürümün yerini alır.

Sharon'un çözümünün artık kullanılamayacağı çok kötü. Josh O'Brien'in çözümünü asieira'nın modifikasyonuyla .Rprofile dosyama ekledim:

read.text = function(pathname)
{
    return (paste(readLines(pathname), collapse="\n"))
}

ve bu gibi kullanmak: txt = read.text('path/to/my/file.txt'). Bumpkin'in (28 Ekim 14) bulgusunu kopyalayamadım writeLines(txt)ve içeriğini gösterdim file.txt. Ayrıca, write(txt, '/tmp/out')komuttan sonra diff /tmp/out path/to/my/file.txthiçbir fark bildirmedi.

readChar çok fazla esnekliğe sahip olmadığından çözümlerinizi birleştirdim (readLines and paste).

Ayrıca her satır arasına bir boşluk ekledim:

con <- file("/Users/YourtextFile.txt", "r", blocking = FALSE)
singleString <- readLines(con) # empty
singleString <- paste(singleString, sep = " ", collapse = " ")
close(con)

Çözümünüz çok çirkin görünmüyor. İşlevleri kullanabilir ve bu gibi profesyonel hale getirebilirsiniz

• ilk yol

new.function <- function(filename){
  readChar(filename, file.info(filename)$size)
}

new.function('foo.txt')

• ikinci yol

new.function <- function(){
  filename <- 'foo.txt'
  return (readChar(filename, file.info(filename)$size))
}

new.function()