How can I retain format in a page webscraped with rvest
<p>There is an example web page I wish to scrape to obtain a lyric where I want to replicate the layout in a Shiny app, possibly within a <code>renderUI()</code> function</p>

<pre><code>People all over the world (everybody) 
Join hands (join)
Start a love train, love train
People all over the world (all the world, now)
Join hands (love ride)
Start a love train (love ride), love train

The next stop that we make will be soon (etc)
</code></pre>

<p>Using rvest I can get the nodesets and the plain text but am unclear the best way to display the text in its original format. </p>

<pre><code>library(rvest)
url &lt;- "https://play.google.com/music/preview/Ttyni4p5vi3ohx52e7ye7m37hlm?lyrics=1&amp;utm_source=google&amp;utm_medium=search&amp;utm_campaign=lyrics&amp;pcampaignid=kp-lyrics&amp;sa=X&amp;ved=0ahUKEwiV7oXtqtvNAhVB5GMKHTnHDZEQr6QBCBsoADAB"

 read_html(url) %&gt;%
   html_nodes("p")

{xml_nodeset (6)}
[1] &lt;p&gt;People all over the world (everybody)&lt;br/&gt;Join hands (join)&lt;br/&gt;Start         a love train, love train&lt;br/&gt;People all over the world (a ...
[2] &lt;p&gt;The next stop that we make will be soon&lt;br/&gt;Tell all the folks in Russia, and China, too&lt;br/&gt;Don't you know that it's time to g ...

read_html(url) %&gt;%
   html_nodes("p") %&gt;% 
   html_text()

[1] "People all over the world (everybody)Join hands (join)Start a love train, love trainPeople all over the world (all the world, now)Join hands (love ride)Start a love train (love ride), love train"                                                                                                                                                                                                            
[2] "The next stop that we make will be soonTell all the folks in Russia, and China, tooDon't you know that it's time to get on boardAnd let this train keep on riding, riding on throughWell, well"
</code></pre>

<p>TIA</p>