>## Not run: ------------------------------------</span>
<span class="comment"># remDr &lt;- remoteDr()</span>
<span class="comment"># # Get the page source</span>
<span class="comment"># remDr %&gt;% go("https://www.google.com/ncr") %&gt;%</span>
<span class="comment">#   getPageSource</span>
<span class="comment"># </span>
<span class="comment"># remDr %&gt;% getTitle()</span>
<span class="comment"># webElem &lt;- remDr %&gt;% findElement("css", "img#hplogo")</span>
<span class="comment"># # check if the 