Importar arquivo de texto como sequência de caracteres únicos

Como você importa um arquivo de texto sem formatação como uma sequência de caracteres únicos no R? Acho que isso provavelmente terá uma resposta muito simples, mas quando tentei hoje, descobri que não conseguia encontrar uma função para fazer isso.

Por exemplo, suponha que eu tenha um arquivo foo.txtcom algo que eu queira textmine.

Eu tentei com:

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

mas isso ainda retornou um vetor. Eu consegui trabalhar um pouco com:

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

mas essa é uma solução bastante feia que provavelmente também é instável.

Aqui está uma variante da solução de @JoshuaUlrich que usa o tamanho correto em vez de um tamanho codificado:

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

Observe que o readChar aloca espaço para o número de bytes que você especificar, portanto readChar(fileName, .Machine$integer.max), não funciona bem ...

Caso alguém ainda esteja estudando essa questão três anos depois, o pacote readr de Hadley Wickham tem uma read_file()função útil que fará isso por você.

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

Eu usaria o seguinte. Deve funcionar muito bem, e não parece feio, pelo menos para mim:

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

E se:

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

O pacote readr tem uma função para fazer tudo por você.

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

Isso substitui a versão no pacote stringr.

Pena que a solução de Sharon não possa mais ser usada. Adicionei a solução de Josh O'Brien com a modificação de asieira ao meu arquivo .Rprofile:

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

e usá-lo como este: txt = read.text('path/to/my/file.txt'). Não consegui replicar a descoberta de Bumpkin (28 de outubro de 14) e writeLines(txt)mostrei o conteúdo de file.txt. Além disso, após write(txt, '/tmp/out')o comando diff /tmp/out path/to/my/file.txtnão houve diferenças.

O readChar não tem muita flexibilidade, então eu combinei suas soluções (readLines e colar).

Também adicionei um espaço entre cada linha:

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

Parece que sua solução não é muito feia. Você pode usar funções e torná-lo profissional como estas

• primeiro caminho

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

new.function('foo.txt')

• segunda via

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

new.function()