Skip to content
Snippets Groups Projects

Add xml extraction script

Merged Add xml extraction script
xml-extraction into master
Merged David Fuhry requested to merge xml-extraction into master
Viewing commit 783a1ab8
Prev
Show latest version
2 files
+ 4
− 2
Compare changes
  • Side-by-side
  • Inline
Files
2
r/ExtractFromXML.R
+ 3
− 1
@@ -13,4 +13,6 @@ texts <- sapply(text.nodes, xml_text)
df.out <- data.frame(Title = titles,
Text = texts)
write.csv2(df.out, "../data/texte.csv")
saveRDS(df.out, "../data/texte.RDS")
write.table(df.out, "../data/texte.csv")
\ No newline at end of file