RMarkdownにggvisインタラクティブチャートを埋め込む方法は？

Question

は、私はHTMLにinteractivity vignetteからこのプロットRMarkdownを編むしようとしています：

mtcars %>% ggvis(x = ~wt) %>% 
    layer_densities(
     adjust = input_slider(.1, 2, value = 1, step = .1, label = "Bandwidth adjustment"), 
     kernel = input_select(
     c("Gaussian" = "gaussian", 
      "Epanechnikov" = "epanechnikov", 
      "Rectangular" = "rectangular", 
      "Triangular" = "triangular", 
      "Biweight" = "biweight", 
      "Cosine" = "cosine", 
      "Optcosine" = "optcosine"), 
     label = "Kernel") 
    ) 

をしかし、私は次のようなエラーメッセージが出ます：「：html_document出力」と「ランタイムをあなたが設定する必要があります

## Warning: Can't output dynamic/interactive ggvis plots in a knitr document. 
## Generating a static (non-dynamic, non-interactive) version of the plot. 

Answer 1

を：光沢のある "ヘッダーに。これは私の作品：

--- 
title: "stackoverflow" 
author: "Kári S Friðriksson" 
date: "7 nóvember 2016" 
output: html_document 
runtime: shiny 
--- 

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



```{r eruptions, echo=FALSE} 
mtcars %>% ggvis(x = ~wt) %>% 
    layer_densities(
     adjust = input_slider(.1, 2, value = 1, step = .1, label = "Bandwidth adjustment"), 
     kernel = input_select(
     c("Gaussian" = "gaussian", 
      "Epanechnikov" = "epanechnikov", 
      "Rectangular" = "rectangular", 
      "Triangular" = "triangular", 
      "Biweight" = "biweight", 
      "Cosine" = "cosine", 
      "Optcosine" = "optcosine"), 
     label = "Kernel") 
    ) 
``` 

これを行う最も簡単な方法は、/新しいファイル/ Rマークダウン/シャイニー/シャイニー文書をファイルに行くことです。ヘッダーが自動的に設定され、コードボックスの上にあるバーには、ニットボタンの代わりに再生ボタンが表示されます。また、コードにlibrary(ggvis)を含める必要があることに注意してください。これは、shinyはクレジットスレートで始まり、ロードしたパッケージや関数を "見る"ことができないからです。