29 lines
602 B
R
29 lines
602 B
R
|
is_latex <- function() {
|
||
|
|
identical(knitr::opts_knit$get('rmarkdown.pandoc.to'), "latex")
|
||
|
|
}
|
||
|
|
|
||
|
|
embed_jpg <- function(path, dpi) {
|
||
|
|
dim <- jpg_dim(path)
|
||
|
|
|
||
|
|
if (is_latex()) {
|
||
|
|
width <- round(dim[2] / dpi, 2)
|
||
|
|
|
||
|
|
knitr::asis_output(paste0(
|
||
|
|
"\\includegraphics[",
|
||
|
|
"width=", width, "in",
|
||
|
|
"]{", path, "}"
|
||
|
|
))
|
||
|
|
} else {
|
||
|
|
knitr::asis_output(paste0(
|
||
|
|
"<img src='", path, "'",
|
||
|
|
" width='", round(dim[2] / (dpi / 96)), "'",
|
||
|
|
" height='", round(dim[1] / (dpi / 96)), "'",
|
||
|
|
" />"
|
||
|
|
))
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
jpg_dim <- function(path) {
|
||
|
|
dim(jpeg::readJPEG(path, native = TRUE))
|
||
|
|
}
|