将文本文件导入为单个字符串

如何在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年后仍然有人在看这个问题，Hadley Wickham的阅读器程序包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")

这将替换程序包中的版本。

太糟糕了，无法再使用Sharon的解决方案。我已经将Josh O'Brien的解决方案以及对asieira的修改添加到了.Rprofile文件中：

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