[英]Include HTML files in R Markdown file?
如何在 R Markdown 文件中放置 HTML 文件?
我通过choroplethr创建了一些不错的动画 choropleth 地图。
如链接所示,动画 choropleths 通过创建一组 PNG 图像来发挥作用,然后将这些图像滚动到一个 HTML 文件中,循环浏览图像,以显示动画。 效果很好,看起来很棒。
但是现在我想将这些页面嵌入/合并到 .Rmd 文件中,这样我就有了一个包括这些动画等值线以及其他工作的整体报告。
在我看来,应该有一种简单的方法来做一个等价于
链接:
[please click here](http://this.is.where.you.will.go.html)
或者
图片:
![cute cat image](http://because.that.is.what.we.need...another.cat.image.html)
图像路径正是我想要的:一个被“放大”以将信息放置到位的参考,而不仅仅是一个链接。 如何使用完整的 HTML 文件而不是图像来做到这一点? 有什么办法吗?
假设我的 choropleth HTML 文件位于'./animations/demographics.html'
本地路径中,并且我有一个 R Markdown 文件,例如:
---
title: 'Looking at the demographics issue'
author: "Mike"
date: "April 9th, 2016"
output:
html_document:
number_sections: no
toc: yes
toc_depth: 2
fontsize: 12pt
---
# Introduction
Here is some interesting stuff that I want to talk about. But first, let's review those earlier demographic maps we'd seen.
!![demographics map]('./animations/demographics.html')
我假设/假装的地方!!
是我想要做的事情的前提:允许我将该 HTML 文件嵌入到报告的其余部分中。
两次更新。 最近,我仍然无法让事情正常工作,所以我将其全部推送到GitHub 存储库,以防有人愿意帮助我解决问题。 可以在该 repo 的自述文件中找到更多详细信息。
似乎能够将 HTML 嵌入到 R Markdown 文件中会非常有用,所以我一直在尝试对其进行整理。
(旧评论)
根据一些有用的建议,我在 R Markdown 文件中尝试并失败了以下内容:
闪亮方法:
```{r showChoro1}
shiny::includeHTML("./animations/demographics.html")
```
(我还在 YAML 部分添加了runtime:Shiny
up。)
htmltools
方法:
```{r showChoro1}
htmltools::includeHTML("./animations/demographics.html")
```
(在这种情况下,我没有对 YAML 进行任何更改。)
在前一种情况下( Shiny
),它根本不起作用。 事实上,包含 HTML 似乎完全破坏了文档的功能,因此运行时似乎永远不能完全发挥作用。 (简而言之,虽然它似乎加载了所有内容,但“加载”纺锤从未消失。)
在后一种情况下,没有其他事情搞砸了,但这是一个破碎的形象。 奇怪的是,文档顶部有一个“choropleth player”功能区,它可以工作,只是没有任何图像会弹出。
为了我自己的理智,我还提供了简单的链接,效果很好。
[This link](./animations/demographics.html) worked without a problem, except that it is not embedded, as I would prefer.
因此,嵌入显然是一个挑战。
这是一个hack(可能不优雅)......想法是直接以编程方式将HTML插入Rmd,然后渲染Rmd。
temp.Rmd 文件:
---
title: "Introduction"
author: "chinsoon12"
date: "April 10, 2016"
output: html_document
---
<<insertHTML:[test.html]
etc, etc, etc
```{r, echo=FALSE}
htmltools::includeHTML("test.html")
```
etc, etc, etc
test.html 文件:
<html>
<head>
<title>Title</title>
</head>
<body>
<p>This is an R HTML document. When you click the <b>Knit HTML</b> button a web page will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:</p>
<p>test test</p>
</body>
</html>
用 HTML 代码替换 Rmd 代码然后渲染的详细代码(可能会缩短很多)
library(stringi)
subHtmlRender <- function(mdfile, htmlfile) {
#replace <<insertHTML:htmlfile with actual html code
#but without beginning white space
lines <- readLines(mdfile)
toSubcode <- paste0("<<insertHTML:[",htmlfile,"]")
location <- which(stri_detect_fixed(lines, toSubcode) )
htmllines <- stri_trim(readLines(htmlfile))
#render html doc
newRmdfile <- tempfile("temp", getwd(), ".Rmd")
newlines <- c(lines[1:(location-1)],
htmllines,
lines[min(location+1, length(lines)):length(lines)]) #be careful when insertHTML being last line in .Rmd file
write(newlines, newRmdfile)
rmarkdown::render(newRmdfile, "html_document")
shell(gsub(".Rmd",".html",basename(newRmdfile),fixed=T))
} #end subHtmlRender
subHtmlRender("temp.Rmd", "test.html")
编辑: htmltools::includeHTML 也适用于我提供的示例文件。 是因为您的特定 html 不喜欢 UTF8 编码吗?
编辑:将@MikeWilliamson 评论纳入反馈
我尝试了以下
我似乎取回了 html,但不确定结果是否符合您的预期
您是否在 pt 2 中也面临同样的问题? 您可能想发布错误消息并要求修复:)。 这是我的错误信息
pandoc.exe: Failed to retrieve http://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/3.1.1/css/bootstrap.min.css
FailedConnectionException2 "cdnjs.cloudflare.com" 80 False getAddrInfo: does not exist (error 11001)
Error: pandoc document conversion failed with error 61
您是否尝试过 YAML 标头中的include:选项?
https://rmarkdown.rstudio.com/html_document_format.html#includes
但也许您会遇到与我相同的问题:我想将 HTML 文件包含在我的 RMarkdown 文档的特定部分中,而不是在标题或正文之前/之后。
可以试试把这条线放到Rmarkdown里再编织。 (YAML 标头“输出:html_document”;如果“运行时:闪亮”以某种方式不起作用)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.