blocks|key|449926|text|我将使用以下内容。它应该工作得很好，而且看起来并不丑陋，至少在我看来：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|449927|singleString+<-+paste(readLines("foo.txt"),+collapse="+")|code-block|syntax|javascript|449928|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I would use the following. It should work just fine, and doesn't seem ugly, at least to me:

<pre><code>singleString &lt;- paste(readLines("foo.txt"), collapse=" ")
</code></pre>

blocks|key|664271|text|这样如何：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|664272|string+<-+readChar("foo.txt",nchars=1e6)|code-block|syntax|javascript|664273|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

How about:

<pre><code>string &lt;- readChar("foo.txt",nchars=1e6)
</code></pre>

blocks|key|664356|text|这是@JoshuaUlrich的解决方案的一个变体，它使用正确的大小而不是硬编码的大小：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|664357|fileName+<-+'foo.txt'
readChar(fileName,+file.info(fileName)$size)|code-block|syntax|javascript|664358|请注意，readChar为您指定的字节数分配空间，因此readChar(fileName,+.Machine$integer.max)不能很好地工作...|offset|length|style|CODE|664359|entityMap^0|0|0|R|14|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Here's a variant of the solution from @JoshuaUlrich that uses the correct size instead of a hard-coded size:

<pre><code>fileName &lt;- 'foo.txt'
readChar(fileName, file.info(fileName)$size)
</code></pre>

Note that readChar allocates space for the number of bytes you specify, so <code>readChar(fileName, .Machine$integer.max)</code> does not work well...

blocks|key|450251|text|readChar没有太多的灵活性，所以我组合了你的解决方案(readLines和paste)。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|450252|我还在每行之间添加了一个空格：|450253|con+<-+file("/Users/YourtextFile.txt",+"r",+blocking+=+FALSE)
singleString+<-+readLines(con)+#+empty
singleString+<-+paste(singleString,+sep+=+"+",+collapse+=+"+")
close(con)|code-block|syntax|javascript|450254|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

readChar doesn't have much flexibility so I combined your solutions (readLines and paste). 

I have also added a space between each line:

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

blocks|key|664507|text|如果有人在3年后还在研究这个问题，Hadley+Wickham的readr包有一个方便的read_file()函数，它将为您做这件事。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|664508|#+you+only+need+to+do+this+one+time+on+your+system
install.packages("readr")|code-block|syntax|javascript|664509|library(readr)
mystring+<-+read_file("path/to/myfile.txt")|664510|entityMap^0|18|B|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@$9|P|A|Q|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|R|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|H|7|S|8|@]|D|@]|E|$I|J]]|$1|M|3|-4|5|6|7|T|8|@]|D|@]|E|$]]]|N|$]]

In case anyone is still looking at this question 3 years later, Hadley Wickham's readr package has a handy <code>read_file()</code> function that will do this for you.
<pre><code># you only need to do this one time on your system
install.packages(&quot;readr&quot;)
</code></pre>
<pre><code>library(readr)
mystring &lt;- read_file(&quot;path/to/myfile.txt&quot;)
</code></pre>

blocks|key|450370|text|太糟糕了，Sharon的解决方案不能再使用了。我已经将Josh+O‘’Brien的解决方案和asieira的修改添加到了我的.Rprofile文件中：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|450371|read.text+=+function(pathname)
{
++++return+(paste(readLines(pathname),+collapse="\n"))
}|code-block|syntax|javascript|450372|并像这样使用它：txt+=+read.text('path/to/my/file.txt')。我不能复制bumpkin的(10月28日。14)发现，writeLines(txt)显示file.txt的含量。此外，在write(txt,+'/tmp/out')之后，命令diff+/tmp/out+path/to/my/file.txt没有报告任何差异。|offset|length|style|CODE|450373|entityMap^0|0|0|8|12|22|F|2J|8|2Z|M|3Q|X|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]|$I|T|J|U|K|L]|$I|V|J|W|K|L]|$I|X|J|Y|K|L]|$I|Z|J|10|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|A|$]]]|N|$]]

Too bad that Sharon's solution cannot be used anymore. I've added Josh O'Brien's solution with asieira's modification to my .Rprofile file:

<pre><code>read.text = function(pathname)
{
 return (paste(readLines(pathname), collapse="\n"))
}
</code></pre>

and use it like this: <code>txt = read.text('path/to/my/file.txt')</code>. I couldn't replicate bumpkin's (28 oct. 14) finding, and <code>writeLines(txt)</code> showed the contents of <code>file.txt</code>. Also, after <code>write(txt, '/tmp/out')</code> the command <code>diff /tmp/out path/to/my/file.txt</code> reported no differences.

blocks|key|664649|text|readr包有一个为您做所有事情的函数。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|664650|install.packages("readr")+#+you+only+need+to+do+this+one+time+on+your+system
library(readr)
mystring+<-+read_file("path/to/myfile.txt")|code-block|syntax|javascript|664651|这将替换包字符串中的版本。|664652|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

The readr package has a function to do everything for you.

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

This replaces the version in the package stringr.

How do you import a plain text file as single character string in R? I think that this will probably have a very simple answer but when I tried this today I found that I couldn't find a function to do this.

For example, suppose I have a file <code>foo.txt</code> with something I want to textmine.

I tried it with:

<pre><code>scan("foo.txt", what="character", sep=NULL)
</code></pre>

but this still returned a vector. I got it working somewhat with:

<pre><code>paste(scan("foo.txt", what="character", sep=" "),collapse=" ")
</code></pre>

but that is quite an ugly solution which is probably unstable too.

Import text file as single character string

如何在R中将纯文本文件作为单字符串导入？我认为这可能会有一个非常简单的答案，但当我今天尝试的时候，我发现我找不到一个函数来做这件事。例如，假设我有一个文件foo.txt，其中包含我想要进行文本挖掘的内容。我试了一下：scan("foo.txt", what="character", sep=NULL)但这仍然返回一个向...

问将文本文件作为单字符串导入
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将文本文件作为单字符串导入EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问将文本文件作为单字符串导入
EN