From mboxrd@z Thu Jan  1 00:00:00 1970
From: stardiviner <numbchild@gmail.com>
Subject: Re: org-babel strange html print in R
Date: Tue, 11 Feb 2020 13:16:26 +0800
Message-ID: <87blq5u2j9.fsf@gmail.com>
References: <875zgjh8wn.fsf@gmail.com>
Reply-To: numbchild@gmail.com
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org>
Received: from eggs.gnu.org ([2001:470:142:3::10]:35535)
 by lists.gnu.org with esmtp (Exim 4.90_1)
 (envelope-from <numbchild@gmail.com>) id 1j1NuR-0003wi-Io
 for emacs-orgmode@gnu.org; Tue, 11 Feb 2020 00:16:32 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
 (envelope-from <numbchild@gmail.com>) id 1j1NuQ-0002ZK-6j
 for emacs-orgmode@gnu.org; Tue, 11 Feb 2020 00:16:31 -0500
Received: from [223.104.247.49] (port=11558 helo=dark.localdomain)
 by eggs.gnu.org with esmtp (Exim 4.71)
 (envelope-from <numbchild@gmail.com>) id 1j1NuP-0002U1-Nv
 for emacs-orgmode@gnu.org; Tue, 11 Feb 2020 00:16:30 -0500
In-reply-to: <875zgjh8wn.fsf@gmail.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <https://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
 <mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org
Sender: "Emacs-orgmode"
 <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane-mx.org@gnu.org>
To: Jeremie Juste <jeremiejuste@gmail.com>
Cc: emacs-orgmode@gnu.org


You should try ~:results value html~. Here is what I got correctly:

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

#+RESULTS[<2020-02-11 13:14:59> 91ff0df2529284897e3585e3ec2e640290ee8308]:
#+begin_export html
<!-- html table generated in R 3.6.2 by xtable 1.8-3 package -->
<!-- Tue Feb 11 13:14:58 2020 -->
<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.0064 </td> <td align="right"> 0.1069 </td> <td align="right"> -0.06 </td> <td align="right"> 0.9520 </td> </tr>
  <tr> <td align="right"> x </td> <td align="right"> 1.1066 </td> <td align="right"> 0.1022 </td> <td align="right"> 10.83 </td> <td align="right"> 0.0000 </td> </tr>
   </table>
#+end_export

Jeremie Juste <jeremiejuste@gmail.com> writes:

> 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


-- 
[ stardiviner ]
       I try to make every word tell the meaning what I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3