Importieren Sie eine Textdatei als einzelne Zeichenfolge

Wie importiere ich eine Nur-Text-Datei als einzelne Zeichenfolge in R? Ich denke, dass dies wahrscheinlich eine sehr einfache Antwort haben wird, aber als ich dies heute versuchte, stellte ich fest, dass ich keine Funktion dafür finden konnte.

Angenommen, ich habe eine Datei foo.txtmit etwas, das ich textminieren möchte.

Ich habe es versucht mit:

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

Dies ergab jedoch immer noch einen Vektor. Ich habe es etwas zum Laufen gebracht mit:

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

aber das ist eine ziemlich hässliche Lösung, die wahrscheinlich auch instabil ist.

Hier ist eine Variante der Lösung von @JoshuaUlrich, die anstelle einer fest codierten Größe die richtige Größe verwendet:

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

Beachten Sie, dass readChar Speicherplatz für die von Ihnen angegebene Anzahl von Bytes reserviert und daher readChar(fileName, .Machine$integer.max)nicht gut funktioniert ...

Für den Fall, dass sich 3 Jahre später noch jemand mit dieser Frage befasst, verfügt das Readr-Paket von Hadley Wickham über eine praktische read_file()Funktion, die dies für Sie erledigt .

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

Ich würde folgendes verwenden. Es sollte gut funktionieren und scheint zumindest für mich nicht hässlich zu sein:

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

Wie wäre es mit:

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

Das readr-Paket hat die Funktion, alles für Sie zu erledigen.

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

Dies ersetzt die Version im Paket stringr.

Schade, dass Sharons Lösung nicht mehr verwendet werden kann. Ich habe Josh O'Briens Lösung mit Asieiras Modifikation zu meiner .Rprofile-Datei hinzugefügt:

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

und benutze es so : txt = read.text('path/to/my/file.txt'). Ich konnte Bumpkins (28. Oktober 14) Befund nicht wiederholen und writeLines(txt)zeigte den Inhalt von file.txt. Auch nach write(txt, '/tmp/out')dem Befehl diff /tmp/out path/to/my/file.txtwurden keine Unterschiede gemeldet.

readChar hat nicht viel Flexibilität, deshalb habe ich Ihre Lösungen (readLines und Einfügen) kombiniert.

Ich habe auch ein Leerzeichen zwischen jeder Zeile eingefügt:

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

Es scheint, dass Ihre Lösung nicht viel hässlich ist. Sie können Funktionen verwenden und sie auf diese Weise professionell gestalten

• erster Weg

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

new.function('foo.txt')

• zweiter Weg

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

new.function()