Nothing
#' Output width for knitr figures
#'
#' @description Creates output width strings for html and latex
#' @param x width, fraction of page width, a number between zero and 1
#' @param ... other arguments, currently ignored
#' @examples
#' Pmisc::out.width(0.5)
#'
#' @export
out.width = function(x, ...) {
testPlotOutput = knitr::knit_hooks$get()$plot(
'xx', list(fig.num=1, fig.align='default',fig.show=TRUE))
if(grepl("includegraphics[{]xx[}]", testPlotOutput)[1]) {
result = paste0(x, '\\textwidth')
} else {
result = paste0(100*x, '%')
}
result
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.