นำเข้าไฟล์ข้อความเป็นสตริงอักขระเดียว

คุณจะนำเข้าไฟล์ข้อความธรรมดาเป็นสตริงอักขระตัวเดียวใน 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 ของ 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)

แพ็คเกจ readr มีฟังก์ชั่นที่จะทำทุกอย่างให้คุณ

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

สิ่งนี้จะแทนที่รุ่นในแพ็คเกจ stringr

น่าเสียดายที่โซลูชันของ Sharon ไม่สามารถใช้ได้อีกต่อไป ฉันได้เพิ่มวิธีการแก้ปัญหาของ Josh O'Brien ด้วยการดัดแปลง asieira ลงในไฟล์. profile ของฉัน:

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

txt = read.text('path/to/my/file.txt')และใช้งานได้เช่นนี้ ผมไม่สามารถทำซ้ำคนบ้านนอกของ (28 ตุลาคม 14) การค้นพบและแสดงให้เห็นว่าเนื้อหาของwriteLines(txt) file.txtนอกจากนี้หลังจากwrite(txt, '/tmp/out')คำสั่งdiff /tmp/out path/to/my/file.txtรายงานว่าไม่มีความแตกต่าง

readChar มีความยืดหยุ่นไม่มากดังนั้นฉันจึงรวมโซลูชันของคุณ (readLines และ paste)

ฉันได้เพิ่มช่องว่างระหว่างแต่ละบรรทัดด้วย:

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