RSP example: A Table

table-pandoc.md.rsp

<%--------------------------------------------------------------
 Usage: 
 md <- R.rsp::rfile('table-pandoc.md.rsp', postprocess=FALSE)
 pdf <- gsub("md$", "pdf", md)
 system2("pandoc", args=c(normalizePath(md), "-o", pdf))
 !pdf  # Opens PDF in viewer

 Requires Pandoc [http://johnmacfarlane.net/pandoc/] and
 LaTeX, because Pandoc uses LaTeX to generate PDFs.
  --------------------------------------------------------------%>
<%
R.utils::use("knitr")
options(knitr.table.format="pandoc")
kable <- function(...) print(knitr::kable(...))
%>

# A Table
<%
data <- head(datasets::iris)
%>

<% kable(data) %>

_Table: The first <%=nrow(data)%> entries of the iris dataset._

table.md.rsp

<%--------------------------------------------------------------
 Usage:
 html <- R.rsp::rfile('table.md.rsp')
 !html  # Opens HTML in browser

 Test on the fly (no installation required):
 source("http://callr.org/rfile#https://gist.githubusercontent.com/HenrikBengtsson/f4e8f6fe2af5d6ccbed6/raw/table.md.rsp")
 !html
 --------------------------------------------------------------%>
<%
R.utils::use("knitr")
options(knitr.table.format="markdown")
kable <- function(...) print(knitr::kable(...))
%>

# A Table
<%
data <- head(datasets::iris)
%>

<% kable(data) %>

_Table: The first <%=nrow(data)%> entries of the iris dataset._