org-babel strange html print in R

[Jeremie Juste]

Hello,

I've found that some strange results when outputing html from R.
Do you have some insights on a potential solution?

Best regards,
Jeremie

Org mode version 9.3.4 (9.3.4-elpa @ /home/djj/.emacs.d/elpa/org-20200206/)

#+PROPERTY: header-args:R  :eval yes  :exports results :colnames yes :results 
output :output-dir images/    :cache yes  :session *R* 

#+begin_src R :results output html
library(xtable)
x <- rnorm(100)
y <- x + rnorm(100)
print(xtable(summary(lm(y ~ x))),type="html")
#+end_src


#+RESULTS:
#+begin_export html

<!-- html table generated in R 3.6.1 by xtable 1.8-4 package -->
<!-- Thu Feb  6 19:13:34 2020 -->
<table border=1>
<
<
 </
<
Estimate </
<
Std. Error </
<
t value </
<
Pr(&gt;|t|) </
 </tr>
  <
<td align="right"
(Intercept) </
<td align="right"
-0.0130 </
<td align="right"
0.1023 </
<td align="right"
-0.13 </
<td align="right"
0.8991 </
</tr>
  <
<td align="right"
x </
<td align="right"
1.0011 </
<td align="right"
0.0987 </
<td align="right"
10.14 </
<td align="right"
0.0000 </
</tr>
   </table>
#+end_export


** Expected results
#+begin_export html
<table border=1>
<tr> <th>  </th> <th> Estimate </th> <th> Std. Error </th> <th> t value </th> 
<th> Pr(&gt;|t|) </th>  </tr>
  <tr> <td align="right"> (Intercept) </td> <td align="right"> -0.0130 </td> 
<td align="right"> 0.1023 </td> <td align="right"> -0.13 </td> <td 
align="right"> 0.8991 </td> </tr>
  <tr> <td align="right"> x </td> <td align="right"> 1.0011 </td> <td 
align="right"> 0.0987 </td> <td align="right"> 10.14 </td> <td align="right"> 
0.0000 </td> </tr>
   </table>
#+end_export