Zaimportuj plik tekstowy jako ciąg znaków

Jak zaimportować zwykły plik tekstowy jako ciąg jednego znaku w R? Myślę, że prawdopodobnie będzie to bardzo prosta odpowiedź, ale kiedy spróbowałem tego dzisiaj, stwierdziłem, że nie mogę znaleźć funkcji, która by to zrobiła.

Załóżmy na przykład, że mam plik foo.txtz czymś, co chcę wysłać SMS-em.

Próbowałem z:

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

ale to wciąż zwróciło wektor. Mam trochę pracy z:

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

ale jest to dość brzydkie rozwiązanie, które prawdopodobnie również jest niestabilne.

Oto wariant rozwiązania @JoshuaUlrich, który używa poprawnego rozmiaru zamiast rozmiaru zakodowanego na stałe:

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

Pamiętaj, że readChar przydziela miejsce dla określonej liczby bajtów, więc readChar(fileName, .Machine$integer.max)nie działa dobrze ...

W przypadku, gdy ktoś nadal patrzy na to pytanie 3 lata później, pakiet czytnika Hadley Wickham ma przydatną read_file()funkcję, która zrobi to za Ciebie.

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

Użyłbym następujących. Powinno działać dobrze i przynajmniej nie wydaje mi się brzydkie:

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

Co powiesz na:

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

Pakiet readr ma funkcję, która zrobi wszystko za Ciebie.

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

Zastępuje to wersję w pakiecie stringr.

Szkoda, że ​​nie można już użyć rozwiązania Sharon. Dodałem rozwiązanie Josha O'Briena z modyfikacją asieiry do mojego pliku .Rprofile:

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

i używać go tak: txt = read.text('path/to/my/file.txt'). Nie mogłem powtórzyć znaleziska bumpkina (28 października 14) i writeLines(txt)pokazałem zawartość file.txt. Ponadto po write(txt, '/tmp/out')poleceniu diff /tmp/out path/to/my/file.txtnie zgłoszono żadnych różnic.

readChar nie ma dużej elastyczności, więc połączyłem twoje rozwiązania (readLines i wklej).

Dodałem również spację między każdą linią:

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

Wygląda na to, że twoje rozwiązanie nie jest zbyt brzydkie. Możesz korzystać z funkcji i uczynić go profesjonalnym w taki sposób

• pierwszy sposób

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

new.function('foo.txt')

• drugi sposób

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

new.function()