Importa file di testo come stringa a singolo carattere

Come si importa un file di testo semplice come stringa di singolo carattere in R? Penso che probabilmente avrà una risposta molto semplice ma quando ho provato questo oggi ho scoperto che non riuscivo a trovare una funzione per farlo.

Ad esempio, supponiamo di avere un file foo.txtcon qualcosa che voglio textmine.

L'ho provato con:

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

ma questo ha comunque restituito un vettore. Ho funzionato un po 'con:

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

ma questa è una soluzione piuttosto brutta che probabilmente è anche instabile.

Ecco una variante della soluzione di @JoshuaUlrich che utilizza la dimensione corretta anziché una dimensione codificata:

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

Si noti che readChar alloca spazio per il numero di byte specificato, quindi readChar(fileName, .Machine$integer.max)non funziona bene ...

Nel caso in cui qualcuno stia ancora esaminando questa domanda 3 anni dopo, il pacchetto readr di Hadley Wickham ha una comoda read_file()funzione che lo farà per te.

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

Vorrei usare quanto segue. Dovrebbe funzionare bene e non sembra brutto, almeno per me:

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

Che ne dite di:

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

Il pacchetto readr ha una funzione per fare tutto per te.

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

Questo sostituisce la versione nel pacchetto stringr.

Peccato che la soluzione di Sharon non possa più essere utilizzata. Ho aggiunto la soluzione di Josh O'Brien con la modifica di asieira al mio file .Rprofile:

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

e usarlo in questo modo: txt = read.text('path/to/my/file.txt'). Non sono riuscito a replicare la scoperta di Bumpkin (28 ottobre 14) e ho writeLines(txt)mostrato il contenuto di file.txt. Inoltre, dopo che write(txt, '/tmp/out')il comando diff /tmp/out path/to/my/file.txtnon ha riportato differenze.

readChar non ha molta flessibilità, quindi ho combinato le tue soluzioni (readLines e paste).

Ho anche aggiunto uno spazio tra ogni riga:

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

Sembra che la tua soluzione non sia molto brutta. Puoi usare le funzioni e renderlo professionale come in questi modi

• primo modo

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

new.function('foo.txt')

• secondo modo

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

new.function()