在rmarkdown Rmd中呈现谷歌图表的代码

Question

谷歌有一些漂亮的图表。我确定有很好的R包装程序包可以做我想要的但是我想学习如何自己包含一个谷歌图表，因为它可能比包含谷歌图表的R包装更灵活。

下面是一个.Rmd，它具有donut函数来生成the donut from Google chart gallery。该函数输出如下所示的预期代码，但实际上将此结果编译为以下pandoc转换错误。如何在Rmarkdown .Rmd文件中正确包含Google图表代码？

错误

output file: ttt.knit.md

pandoc.exe: Could not fetch https://www.gstatic.com/charts/loader.js
HttpExceptionRequest Request {
  host                 = "www.gstatic.com"
  port                 = 443
  secure               = True
  requestHeaders       = []
  path                 = "/charts/loader.js"
  queryString          = ""
  method               = "GET"
  proxy                = Nothing
  rawBody              = False
  redirectCount        = 10
  responseTimeout      = ResponseTimeoutDefault
  requestVersion       = HTTP/1.1
}
 (InternalException (HandshakeFailed Error_EOF))
Error: pandoc document conversion failed with error 67
In addition: Warning message:
running command '"C:/Program Files/RStudio/bin/pandoc/pandoc" +RTS -K512m -RTS ttt.utf8.md --to html --from markdown+autolink_bare_uris+ascii_identifiers+tex_math_single_backslash --output ttt.html --smart --email-obfuscation none --self-contained --standalone --section-divs --template "C:\R\R-3.3.2\library\rmarkdown\rmd\h\default.html" --no-highlight --variable highlightjs=1 --variable "theme:bootstrap" --include-in-header "C:\Users\trinker\AppData\Local\Temp\RtmpWI5M7o\rmarkdown-str5910399322d6.html" --mathjax --variable "mathjax-url:https://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML"' had status 67 
Execution halted

Rmd MWE

---
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

donut <- function(){

    out <- c("<script type=\"text/javascript\" src=\"https://www.gstatic.com/charts/loader.js\"></script>", 
    "<script type=\"text/javascript\">", "  google.charts.load(\"current\", {packages:[\"corechart\"]});", 
    "  google.charts.setOnLoadCallback(drawChart);", "  function drawChart() {", 
    "var data = google.visualization.arrayToDataTable([", "  ['Task', 'Hours per Day'],", 
    "  ['Work',     11],", "  ['Eat',      2],", "  ['Commute',  2],", 
    "  ['Watch TV', 2],", "  ['Sleep',    7]", "]);", "", "var options = {", 
    "  title: 'My Daily Activities',", "  pieHole: 0.4,", "};", "", 
    "var chart = new google.visualization.PieChart(document.getElementById('donutchart'));", 
    "chart.draw(data, options);", "  }", "</script>", "", "<div id=\"donutchart\" style=\"width: 900px; height: 500px;\"></div>"
    )

    cat(paste(out, collapse = "\n"))

}

```


```{r results='asis'}
donut()
```

donut输出sans rmarkdown knitting

<script type="text/javascript" src="https://www.gstatic.com/charts/loader.js"></script>
<script type="text/javascript">
  google.charts.load("current", {packages:["corechart"]});
  google.charts.setOnLoadCallback(drawChart);
  function drawChart() {
var data = google.visualization.arrayToDataTable([
  ['Task', 'Hours per Day'],
  ['Work',     11],
  ['Eat',      2],
  ['Commute',  2],
  ['Watch TV', 2],
  ['Sleep',    7]
]);

var options = {
  title: 'My Daily Activities',
  pieHole: 0.4,
};

var chart = new google.visualization.PieChart(document.getElementById('donutchart'));
chart.draw(data, options);
  }
</script>

<div id="donutchart" style="width: 900px; height: 500px;"></div>

Answer 1

这听起来很像bug the hs-tls library最近，pandoc依赖于通过https下载图像等。

最有可能的情况是，使用较新的pandoc nightly（或从源代码编译）并确保其使用tls＆gt; = 1.3.9将解决您的问题。