將ggvis html保存到文件

Question

目標：

我希望能夠創建靜態ggvis圖，並為保存html文件的目錄路徑傳遞參數。

模擬數據：

require(ggvis)

# Create mock data to work with
dfa <- data.frame(
date_a = seq(from= as.Date("2015-06-10"), 
    to= as.Date("2015-07-01"), by= 1),
val_a = c(2585.150, 2482.200, 3780.186, 3619.601, 
    0.000, 0.000, 3509.734, 3020.405, 
    3271.897, 3019.003, 3172.084, 0.000, 
    0.000, 3319.927, 2673.428, 3331.382, 
    3886.957, 2859.887, 0.000, 0.000, 
    2781.443, 2847.377) )

示例圖：

這是靜態ggvis圖的示例。

# Create working static ggvis plot
dfa %>%
  ggvis( x= ~date_a , y= ~val_a, stroke := "black", opacity := 0.5 ) %>% 
    scale_datetime("x", nice = "month", domain = c(as.Date("2015-06-10"),
    as.Date("2015-07-15") )) %>%
    layer_lines() %>% layer_points( fill := "black" )

運行此命令時，默認情況下，html文件將寫入"file:///C:/Users/.../AppData/Local/Temp/RtmpyuMDDO/viewhtml1bf039815bb2/index.html" 。 相反，我希望能夠傳遞所需的路徑： "file:///C:/my/desired/path/to/plot/index.html"作為參數，並將html文件保存在那里。

研究：

以下是一些我已閱讀但無法完成的相關主題：

文獻資料

SO關於保存HTML的討論

關於先前的SO討論，首先是自該較早的文章以來已有進一步的發展，其次，我希望僅傳遞目標路徑並將html寫入指定的路徑。

Answer 1

把它放到output.Rmd ：

```{r, echo=FALSE}
library(ggvis)
dfa <- data.frame(
date_a = seq(from= as.Date("2015-06-10"),
    to= as.Date("2015-07-01"), by= 1),
val_a = c(2585.150, 2482.200, 3780.186, 3619.601,
    0.000, 0.000, 3509.734, 3020.405,
    3271.897, 3019.003, 3172.084, 0.000,
    0.000, 3319.927, 2673.428, 3331.382,
    3886.957, 2859.887, 0.000, 0.000,
    2781.443, 2847.377) )

dfa %>%
  ggvis( x= ~date_a , y= ~val_a, stroke := "black", opacity := 0.5 ) %>%
    scale_datetime("x", nice = "month", domain = c(as.Date("2015-06-10"),
    as.Date("2015-07-15") )) %>%
    layer_lines() %>% layer_points( fill := "black") %>% 
  knit_print.ggvis(inline=TRUE)
```

在R控制台（正確的目錄中）中，運行：

rmarkdown::render("output.Rmd")

和output.html將看起來像：

並成為獨立文件。

如果您稍作努力，可以使它成為您需要的功能。