Changing HTML Table Formatting When Exporting from R

Question

I am generating several tables in R and then exporting them to HTML(5). For instance:

#+BEGIN_SRC R :session *R-org* :results output raw :exports results
  df <- data.frame(x=0.110, y=0.132)
  rownames(df) <- "Rates"
  print(ascii(df, header=TRUE, colnames=colnames(df), rownames=rownames(df),
              digits=3, caption="Rates"),
        type="org")
#+END_SRC

This seems to work well enough, but it creates very ugly tables. How do I assign HTML attributes (as shown with the #+ATTR_HTML line in org manual) from the R block?

Answer 1

You can handle this from the R side:

* Test this

** Original
#+BEGIN_SRC R :session *R-org* :results output raw :exports results
  library(ascii)
  df <- data.frame(x=0.110, y=0.132)
  rownames(df) <- "Rates"
  print(ascii(df, header=TRUE, colnames=colnames(df), rownames=rownames(df),
              digits=3, caption="Rates"),
        type="org")
#+END_SRC


** Formatted
#+BEGIN_SRC R :session *R-org* :results output raw :exports results
  library(ascii)
  df <- data.frame(x=0.110, y=0.132)
  rownames(df) <- "Rates"
  cat("#+ATTR_HTML: :border 2 :rules all :frame border\n")
  print(ascii(df, header=TRUE, colnames=colnames(df), rownames=rownames(df),
              digits=3, caption="Rates"),
        type="org")
#+END_SRC

That's a bit ugly. It would be neater if the author of the ascii provided a header argument that allowed you to explicitly add an org-mode header in the call to ascii. (they do provide a header argument, but it serves another purpose). That may be a reasonable feature request.

Answer 2

Simple HTML exporting R tables from Org-mode

Perhaps you can try :results output value , :colnames yes :rownames yes.

#+BEGIN_SRC R :session *R-org* :results output value :exports results :colnames yes :rownames yes
df <- data.frame(x=0.110, y=0.132)
rownames(df) <- "Rates"
df
#+END_SRC

#+RESULTS:
|       |    x |     y |
|-------+------+-------|
| Rates | 0.11 | 0.132 |

HTML Exporting with Captions and Labels

If you need captions or reference labels,

#+BEGIN_SRC R :session *R-org* :results output value :exports results :colnames yes :rownames yes
df <- data.frame(x=0.110, y=0.132)
rownames(df) <- "Rates"
df
#+END_SRC

#+CAPTION: Rates
#+NAME: TABLE-TMP-01
#+ATTR_HTML: :border 2 :rules all :frame border
#+RESULTS:
|       |    x |     y |
|-------+------+-------|
| Rates | 0.11 | 0.132 |

Now we have a reference for Table [[TABLE-TMP-01]].