2016-10-29 1 views
1

Ich versuche, ein RMarkdown in html dieses Grundstück vom interactivity vignette zu stricken:Wie man ggvis interaktive Diagramme in RMarkdown einbettet?

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") 
    ) 

Aber ich bekomme die folgende Fehlermeldung: „: html_document Ausgang“ und „Laufzeit

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

Ganz oben auf dieser Seite heißt es: 'Hinweis: Wenn Sie die mit knitr generierte HTML-Version dieses Dokuments anzeigen, werden die interaktiven Funktionen der Beispiele deaktiviert. Sie müssen den Code in R ausführen, um die interaktiven Steuerelemente anzuzeigen und zu verwenden. Sie können ihn in Shiny oder Shiny-aktiviertem FlexDashboard RMarkdown ausführen. Sie könnten auch plotly auschecken, das [einige eingeschränkte clientseitige Steuerelemente hinzufügt] (http://moderdata.plot.ly/new-feature-dropdown-menus-in-plotly-and-r/). – alistaire

+0

@alistaire Danke, das habe ich gemerkt, aber ich dachte, es wäre vorher machbar, oder? Heißt das, http://ggvis.studio.com/interactivity.html ist eine glänzende App in der Tat? – Dambo

+0

Glaub es, oder es läuft zumindest auf einem Shiny Server. Beachten Sie, dass es etwas langsamer lädt als die übrigen RStudio-Seiten. – alistaire

Antwort

4

Sie müssen eingestellt : glänzend "im Header. Dies funktioniert für mich:

--- 
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") 
    ) 
``` 

Der einfachste Weg dies zu tun ist, gehen/neue Datei/R Abschlag Datei/Glänzend/Shiny Dokuments. Dann wird die Kopfzeile automatisch für Sie eingerichtet, und anstelle der Knit-Taste in der Leiste über der Code-Box wird eine Wiedergabetaste angezeigt. Beachten Sie auch, dass Sie library(ggvis) in den Code einfügen müssen, da shiny mit einer Cleas-Liste beginnt und nicht in der Lage ist, die Pakete oder Funktionen, die Sie geladen haben, zu "sehen".

Verwandte Themen