Імпортуйте текстовий файл у вигляді одного символьного рядка

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

Наприклад, припустимо, у мене є файл foo.txtіз тим, що я хочу передати текстовим файлом.

Я спробував це:

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 роки, пакет читачів Хедлі Вікхема має зручну 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)

У пакеті читання є функція, щоб зробити все за вас.

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

Це замінює версію пакета stringr.

Шкода, що рішення Шарона більше не можна використовувати. До свого файлу .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 та вставити).

Я також додав пробіл між кожним рядком:

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()