繁体   English   中英

在 R Markdown 文件中包含 HTML 文件?

[英]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 评论纳入反馈

我尝试了以下

  1. animated_choropleth.html复制并粘贴到空白 .Rmd
  2. 删除对 cloudfare.com 的引用,因为我在渲染时遇到了访问问题(见下文)
  3. 编织 HTML
  4. 放回那些 cloudfare 网络链接
  5. 将图形放在与呈现的 html 相同的文件夹中
  6. 打开 HTML

我似乎取回了 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.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM