Save html result to a txt or html file

Question

I have a variable with html code.

Here what the code variable outpout in R console:

<!DOCTYPE html>
<html>
<body>

<h1>My First Heading</h1>

<p>My first paragraph.</p>

</body>
</html>

I try to save the content into a txt file

 write.table(code, file='C:/Users/Desktop/code_result.txt')

But it stacks with this error:

Error in as.data.frame.default(x[[i]], optional = TRUE) : 
  c("cannot coerce class \"c(\"HTMLInternalDocument\", \"HTMLInternalDocument\", \"XMLInternalDocument\", \" to a data.frame", "cannot coerce class \"\"XMLAbstractDocument\")\" to a data.frame")

Use `saveXML` instead of `write.table`. Or provide a reproducible example, otherwise it will be a guessing game. — lukeA, Dec 25 '15 at 13:31
@lukeA What package does `saveXML()` come from? Or is `saveXML` itself the package name? — stevec, Jul 12 '19 at 17:43

score 9 · Answer 1 · answered Dec 25 '15 at 19:24

Here is a simple solution (although I prefer using package XML as suggested in the comments to your question):

code <- "<!DOCTYPE html>
  <html>
  <body>

  <h1>My First Heading</h1>

  <p>My first paragraph.</p>

  </body>
</html>"

NOTE: if you already have an object containing the text above, you can convert it to a character string so the code below applies:

code <- paste(as.character(code), collapse = "\n")

write.table(code, 
            file='C:/Users/dsargsy/Desktop/code_result.html', 
            quote = FALSE,
            col.names = FALSE,
            row.names = FALSE)

Davit this code from 4 years completely saved my week. Cheers dude! — dez93_2000, Nov 16 '19 at 03:18

score 5 · Answer 2 · answered Dec 25 '15 at 19:14

5

One option is saveXML and another is sink():

pacman::p_load(scrapeR) # or require() or library()
f = system.file("exampleData", "mtcars.xml", package="XML")
doc = xmlTreeParse(f, useInternalNodes = TRUE)
sink("your.file.txt")
doc
sink()

answered Dec 25 '15 at 19:14

Hack-R

22,422
14
75
131

score 2 · Answer 3 · answered Jun 28 '18 at 04:59

very comfortable package for all read/write actions is the rio package.

library(rio)
export(html_code,
       file="html_code_result.html",
       format="html"
      )

in this syntax, the rio::export() function supports many other formats, including

excel
matlab
spss
json

and many more. It's also very fast!

score 2 · Answer 4 · answered Apr 22 '20 at 15:26

2

The simplest solution using only base would have to be:

writeLines(text = code, con = 'C:/Users/Desktop/code_result.txt')

answered Apr 22 '20 at 15:26

Inhabitant

859
6
6

Save html result to a txt or html file

Title

4 Answers4

Linked