add line to save the second example.html in the R code