Импортировать текстовый файл как односимвольную строку

Как вы импортируете простой текстовый файл как односимвольную строку в R? Я думаю, что это, вероятно, будет очень простой ответ, но когда я попробовал это сегодня, я обнаружил, что не могу найти функцию для этого.

Например, предположим, у меня есть файл foo.txtс чем-то, что я хочу textmine.

Я попробовал это с:

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

но это все равно вернуло вектор. Я получил это работает с:

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

но это довольно уродливое решение, которое, вероятно, тоже нестабильно.

Вот вариант решения от @JoshuaUlrich, который использует правильный размер вместо жесткого размера:

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

Обратите внимание, что readChar выделяет пространство для указанного количества байтов, поэтому readChar(fileName, .Machine$integer.max)не работает хорошо ...

В случае, если кто-то еще будет рассматривать этот вопрос 3 года спустя, в пакете readr Хэдли Уикхэма есть удобная read_file()функция, которая сделает это за вас.

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

Я бы использовал следующее. Это должно работать просто отлично, и не кажется уродливым, по крайней мере, мне:

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

Как насчет:

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

В пакете readr есть функция, которая сделает все за вас.

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

Это заменяет версию в пакете stringr.

Жаль, что решение Шарона больше нельзя использовать. Я добавил решение Джоша О'Брайена с модификацией asieira в мой файл .Rprofile:

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

и использовать его как это: txt = read.text('path/to/my/file.txt'). Я не смог воспроизвести находку Бампкина (28 окт. 14) и writeLines(txt)показал содержание file.txt. Также после write(txt, '/tmp/out')команды не diff /tmp/out path/to/my/file.txtсообщалось о различиях.

readChar не обладает большой гибкостью, поэтому я объединил ваши решения (readLines и paste).

Я также добавил пробел между каждой строкой:

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

Кажется, ваше решение не так уж и плохо. Вы можете использовать функции и сделать его профессиональным, как эти способы

• первый путь

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

new.function('foo.txt')

• второй способ

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

new.function()