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

¿Cómo se importa un archivo de texto sin formato 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 hacerlo.

Por ejemplo, supongamos que tengo un archivo foo.txtcon algo que quiero minar.

Lo probé con:

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

pero esto todavía devolvió un vector. Lo tengo trabajando un poco con:

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

pero esa es una solución bastante fea que probablemente también sea inestable.

Aquí hay una variante de la solución de @JoshuaUlrich que usa el tamaño correcto en lugar de un tamaño codificado:

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

Tenga en cuenta que readChar asigna espacio para la cantidad de bytes que especifique, por lo readChar(fileName, .Machine$integer.max)que no funciona bien ...

En caso de que alguien todavía esté analizando esta pregunta 3 años después, el paquete de lectura de Hadley Wickham tiene una read_file()función útil que lo hará 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")

Yo usaría lo siguiente. Debería funcionar bien, y no me parece feo, al menos para mí:

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

Qué tal si:

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

El paquete de lectura 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.

Lástima que la solución de Sharon ya no se pueda usar. He agregado 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 que write(txt, '/tmp/out')el comando diff /tmp/out path/to/my/file.txtno informó diferencias.

readChar no tiene mucha flexibilidad, por lo que combiné sus soluciones (readLines y paste).

También he agregado 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)

Parece que tu solución no es muy fea. Puede usar funciones y hacerlo profesional de esta manera

• primera forma

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

new.function('foo.txt')

• segunda forma

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

new.function()