Importer un fichier texte en tant que chaîne de caractères unique

Comment importer un fichier texte brut en tant que chaîne de caractères unique dans R? Je pense que cela aura probablement une réponse très simple, mais quand j'ai essayé cela aujourd'hui, j'ai trouvé que je ne pouvais pas trouver de fonction pour le faire.

Par exemple, supposons que j'ai un fichier foo.txtavec quelque chose que je veux texturer.

Je l'ai essayé avec:

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

mais cela a quand même renvoyé un vecteur. Je l'ai fait travailler un peu avec:

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

mais c'est une solution assez laide qui est probablement aussi instable.

Voici une variante de la solution de @JoshuaUlrich qui utilise la taille correcte au lieu d'une taille codée en dur:

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

Notez que readChar alloue de l'espace pour le nombre d'octets que vous spécifiez, donc readChar(fileName, .Machine$integer.max)ne fonctionne pas bien ...

Au cas où quelqu'un se pencherait encore sur cette question 3 ans plus tard, le paquet readr de Hadley Wickham a une read_file()fonction pratique qui le fera pour vous.

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

J'utiliserais ce qui suit. Cela devrait très bien fonctionner, et ne semble pas laid, du moins pour moi:

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

Que diriez-vous:

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

Le paquet readr a une fonction pour tout faire pour vous.

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

Cela remplace la version dans le package stringr.

Dommage que la solution de Sharon ne puisse plus être utilisée. J'ai ajouté la solution de Josh O'Brien avec la modification de asieira à mon fichier .Rprofile:

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

et l' utiliser comme ceci: txt = read.text('path/to/my/file.txt'). Je n'ai pas pu reproduire les conclusions de Bumpkin (28 oct. 14) et j'ai writeLines(txt)montré le contenu de file.txt. De plus, après write(txt, '/tmp/out')la commande, diff /tmp/out path/to/my/file.txtaucune différence n'a été signalée.

readChar n'a pas beaucoup de flexibilité, j'ai donc combiné vos solutions (readLines et paste).

J'ai également ajouté un espace entre chaque ligne:

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

Il semble que votre solution ne soit pas très moche. Vous pouvez utiliser des fonctions et le rendre professionnel comme ces façons

• première voie

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

new.function('foo.txt')

• deuxième voie

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

new.function()