如何解决从Rmarkdown编织PDF,每页一张图像,垂直居中
我想将数百张图像从Rmarkdown编织到一个pdf文件中。我只希望每页一张图像,并且每张图像在页面上水平和垂直居中。我一直在努力尝试与kable配套,但是没有运气。谢谢您的帮助。
这是一组示例图像:
filenames <- structure(list(img_url = c("https://images.freeimages.com/images/large-previews/ce3/puppies-1-1308839.jpg","https://images.freeimages.com/images/large-previews/006/young-dachshund-1362378.jpg","https://images.freeimages.com/images/large-previews/20c/my-puppy-maggie-1362787.jpg"
)),row.names = c(NA,-3L),class = c("tbl_df","tbl","data.frame"
))
解决方法
您可以使用glue
包在每个图像周围添加一些LaTeX,这应该可以完成您想要的操作。
glue
使您可以将变量直接放入字符串中,然后可以通过`results ='asis'块选项将其合并到编织文件中。
---
title: "One Image Per Page"
output: pdf_document
---
```{r one-per-page,results = 'asis',echo = FALSE}
library("glue")
# full path to all image files,URLs should work too
image_path_list <- c("/path/image1.jpg","/path/image2.jpg")
# create LaTeX output,alter the glue open delimiter to avoid conflict
glue('\\vspace*{\\fill}\n\\begin{center}\n\\includegraphics{{(image_path_list}}\n\\end{center}\n\\vspace*{\\fill}\n\\newpage\n',.open = "{(")
```
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。