Nhập tệp văn bản dưới dạng chuỗi ký tự đơn

Làm thế nào để bạn nhập một tệp văn bản đơn giản dưới dạng chuỗi ký tự đơn trong R? Tôi nghĩ rằng điều này có thể sẽ có một câu trả lời rất đơn giản nhưng khi tôi thử nó ngày hôm nay tôi thấy rằng tôi không thể tìm thấy một chức năng để làm điều này.

Ví dụ: giả sử tôi có một tệp foo.txtcó nội dung tôi muốn nhắn tin.

Tôi đã thử nó với:

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

nhưng điều này vẫn trả về một vectơ. Tôi đã làm cho nó hoạt động với:

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

nhưng đó là một giải pháp khá xấu mà có lẽ cũng không ổn định.

Đây là một biến thể của giải pháp từ @JoshuaUlrich sử dụng kích thước chính xác thay vì kích thước được mã hóa cứng:

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

Lưu ý rằng readChar phân bổ không gian cho số byte bạn chỉ định, do readChar(fileName, .Machine$integer.max)đó không hoạt động tốt ...

Trong trường hợp bất cứ ai vẫn nhìn vào câu hỏi này 3 năm sau, gói readr của Hadley Wickham có một read_file()chức năng tiện dụng sẽ làm điều này cho bạn.

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

Tôi sẽ sử dụng như sau. Nó sẽ hoạt động tốt, và không có vẻ xấu, ít nhất là với tôi:

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

Làm thế nào về:

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

Gói readr có chức năng làm mọi thứ cho bạn.

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

Điều này thay thế phiên bản trong chuỗi Stringr.

Thật tệ là giải pháp của Sharon không thể được sử dụng nữa. Tôi đã thêm giải pháp của Josh O'Brien với sửa đổi của asieira vào tệp .Rprofile của mình:

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

và sử dụng nó như thế này : txt = read.text('path/to/my/file.txt'). Tôi không thể sao chép việc tìm kiếm (28 tháng 8) của gập bụng và writeLines(txt)hiển thị nội dung của file.txt. Ngoài ra, sau khi báo cáo write(txt, '/tmp/out')lệnh diff /tmp/out path/to/my/file.txtkhông có sự khác biệt.

readChar không có nhiều tính linh hoạt nên tôi đã kết hợp các giải pháp của bạn (readLines và paste).

Tôi cũng đã thêm một khoảng trắng giữa mỗi dòng:

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

Có vẻ như giải pháp của bạn không nhiều xấu xí. Bạn có thể sử dụng các chức năng và làm cho nó chuyên nghiệp như những cách này

• cách đầu tiên

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

new.function('foo.txt')

• cách thứ hai

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

new.function()