library("hadron") library("knitr") library("dplyr") library("pander") library("kableExtra") knitr::opts_chunk$set(fig.path="figures/", echo=FALSE, warning=FALSE, message=FALSE, dev="tikz", external=TRUE, fig.width=4.0, fig.height=3.6) styling_latex_hold_position <- function(x) { sub("\\\\begin\\{table\\}", "\\\\begin\\{table\\}[!h]", x) }
load("omeas.summary.RData") load("gradflow.summary.RData") styling_latex_hold_position( kable(list(t(resultsum[["cB211a.25.48"]]$params), t(resultsum[["cB211a.25.48"]]$obs)), format = "latex", booktabs = TRUE, caption = "cB211a.25.48 obervables summary") )
styling_latex_hold_position( kable(list(t(resultsum[["cB211b.25.48"]]$params), t(resultsum[["cB211b.25.48"]]$obs)), booktabs = TRUE, format = "latex", caption = "cB211b.25.48 observables summary") )
\par \clearpage
styling_latex_hold_position( kable(gradflow_resultsum[["cB211a.25.48"]], format = "latex", booktabs = TRUE, caption = "cB211a.25.48 gradient flow observables summary") ) styling_latex_hold_position( kable(gradflow_resultsum[["cB211b.25.48"]], format = "latex", booktabs = TRUE, caption = "cB211b.25.48 gradient flow observables summary") )
library(pdftools) pdfs <- c("analysis_cB211a.25.48.pdf", "cB211a.25.48.gradflow.pdf", "analysis_cB211b.25.48.pdf", "cB211b.25.48.gradflow.pdf") for( f in pdfs ){ cat(sprintf("\\subsection{%s}\n",escape_underscore(f))) npages <- pdf_info(f)$pages for( p in 1:npages ){ cat( sprintf("\\includegraphics[width=0.45\\textwidth, page=%d]{{{%s}}}\n", p, tools::file_path_sans_ext(f) ) ) # using a paragraph instead of a linebreak helps to avoid placing plots # such that they flow out of the page if( p%%2 == 0 ){ cat("\\par") } } #cat("\\end{figure}\n") }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.