Importar archivo de texto como cadena de un solo carácter

Question

¿Cómo se importa un archivo de texto plano como cadena de un solo carácter en R? Creo que esto probablemente tendrá una respuesta muy simple, pero cuando probé esto hoy, descubrí que no podía encontrar una función para hacer esto.

Por ejemplo, supongamos que tengo un archivo foo.txt con algo que quiero enviar.

he probado con:

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

pero esto sigue siendo un vector de regresar. Tengo que trabajar un poco con:

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

pero eso es absolutamente una solución fea que es probablemente inestable también.

Answer 1

He aquí una variante de la solución de @JoshuaUlrich que utiliza el tamaño correcto en vez de un tamaño no modificable:

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

Tenga en cuenta que readChar asigna espacio para el número de bytes especificados, por lo readChar(fileName, .Machine$integer.max) no funciona bien ...

Answer 2

Utilizaría lo siguiente. Se debería funcionar bien, y no parece feo, al menos para mí:

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

Answer 3

¿Qué tal:

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

Answer 4

readChar no tiene mucha flexibilidad, así que combiné sus soluciones (líneas de lectura y pegado).

También he añadido un espacio entre cada línea:

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

Answer 5

Por si alguien todavía está mirando a esta pregunta 3 años más tarde, el paquete readr de Hadley Wickham tiene una read_file() práctica función que va a hacer esto para usted.

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

Answer 6

Lástima que la solución de Sharon ya no se puede usar. He añadido la solución de Josh O'Brien con la modificación de asieira a mi archivo .Rprofile:

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

y utilizar de esta manera: txt = read.text('path/to/my/file.txt'). No pude replicar el hallazgo de bumpkin (28 oct.14), y writeLines(txt) mostró el contenido de file.txt. Además, después de write(txt, '/tmp/out'), el comando diff /tmp/out path/to/my/file.txt no informó diferencias.

Answer 7

El paquete readr tiene una función para hacer todo por usted.

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

Esto reemplaza la versión en el paquete stringr.