Impor file teks sebagai string karakter tunggal

Bagaimana Anda mengimpor file teks biasa sebagai string karakter tunggal di R? Saya pikir ini mungkin akan memiliki jawaban yang sangat sederhana tetapi ketika saya mencoba ini hari ini saya menemukan bahwa saya tidak dapat menemukan fungsi untuk melakukan ini.

Sebagai contoh, misalkan saya memiliki file foo.txtdengan sesuatu yang saya ingin textmine.

Saya mencobanya dengan:

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

tetapi ini masih mengembalikan vektor. Saya membuatnya bekerja dengan:

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

tetapi itu adalah solusi yang jelek yang mungkin juga tidak stabil.

Berikut adalah varian solusi dari @JoshuaUlrich yang menggunakan ukuran yang benar dan bukan ukuran yang dikodekan:

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

Perhatikan bahwa readChar mengalokasikan ruang untuk jumlah byte yang Anda tentukan, jadi readChar(fileName, .Machine$integer.max)tidak berfungsi dengan baik ...

Jika ada yang masih melihat pertanyaan ini 3 tahun kemudian, paket readr Hadley Wickham memiliki read_file()fungsi praktis yang akan melakukan ini untuk Anda.

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

Saya akan menggunakan yang berikut ini. Ini seharusnya bekerja dengan baik, dan tidak terlihat jelek, setidaknya bagi saya:

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

Bagaimana tentang:

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

Paket readr memiliki fungsi untuk melakukan segalanya untuk Anda.

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

Ini menggantikan versi dalam string paket.

Sayang sekali bahwa solusi Sharon tidak dapat digunakan lagi. Saya telah menambahkan solusi Josh O'Brien dengan modifikasi asieira ke file .Rprofile saya:

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

dan menggunakannya seperti ini: txt = read.text('path/to/my/file.txt'). Saya tidak bisa meniru temuan bumpkin (28 Oktober 14), dan writeLines(txt)menunjukkan isinya file.txt. Juga, setelah write(txt, '/tmp/out')perintah diff /tmp/out path/to/my/file.txtmelaporkan tidak ada perbedaan.

readChar tidak memiliki banyak fleksibilitas sehingga saya menggabungkan solusi Anda (readLines dan paste)

Saya juga menambahkan spasi di antara setiap baris:

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

Sepertinya solusi Anda tidak terlalu jelek. Anda bisa menggunakan fungsi dan menjadikannya proffesional seperti cara-cara ini

• cara pertama

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

new.function('foo.txt')

• jalan kedua

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

new.function()