テキストファイルを単一の文字列としてインポートする

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年後にこの質問を見ている、ハドレーウィッカムの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")

これにより、パッケージストリンガーのバージョンが置き換えられます。

シャロンのソリューションがもう使えないのは残念です。.Rprofileファイルにasieiraを変更したJosh O'Brienのソリューションを追加しました。

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

次のように使用しますtxt = read.text('path/to/my/file.txt')。バンプキン（10月28日）の結果を再現できず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()