Выполнение кода при нажатии на кнопку R-презентации

Question

В настоящее время я делаю презентацию, используя функциональность R-презентации Rstudio.

У меня есть алгоритм, который проходит через график и графически отображает график каждую секунду или две. Алгоритм может быть вызван через RunAlgorithm()

RunAlgorithm<-function(){ 
    for(i in 1:10){ 
     x<-rnorm(1000) 
     y<-runif(1000) 
     plot(x,y) 
     Sys.sleep(1) 
    } 
} 

Я хочу показать этот алгоритм работает в презентации. Но когда я использую его в файле (ниже), я просто получить целую страницу каждого отдельного участка, один отображается сразу после следующего

TestFile.Rpres

TestFile 
======================================================== 
author: me 
date: today 

First Slide 
======================================================== 
```{r echo = FALSE} 
RunAlgorithm<-function(){ 
     for(i in 1:10){ 
      x<-rnorm(1000) 
      y<-runif(1000) 
      plot(x,y) 
      Sys.sleep(1) 
     } 
} 
RunAlgorithm() 

``` 
Slide With Code 
======================================================== 


Slide 2 

Я хотелось бы каким-то образом нажать кнопку или перейти на этот слайд и воспроизвести анимацию в браузере

Answer 1

AR-презентация как любой документ RMarkdown. не является чем-то динамичным, например, например. блестящее приложение. Результатом является статический html-файл. Итак, вам нужно создать анимацию, которую вы можете включить в презентацию. Это частично вызвано в Combining R Markdown and Animation Package, но я не мог заставить его работать для меня. Поэтому я нашел это example.

Так что для вас это будет выглядеть

```{r setup,echo=FALSE} 
library(knitr) 
opts_knit$set(animation.fun = hook_scianimator) 
``` 

<link rel="stylesheet" href="http://vis.supstat.com//assets/themes/dinky/css/scianimator.css"> 
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.7.1/jquery.min.js"></script> 
<script src="http://vis.supstat.com/assets/themes/dinky/js/jquery.scianimator.min.js"></script> 

    TestFile 
======================================================== 
author: me 
date: today 

First Slide 
======================================================== 
```{r echo = FALSE, fig.show='animate', interval=1} 
RunAlgorithm<-function(){ 
     for(i in 1:10){ 
      x<-rnorm(1000) 
      y<-runif(1000) 
      plot(x,y) 
     } 
} 
RunAlgorithm() 
``` 
Slide With Code 
======================================================== 


Slide 2 

EDIT:

Он также работает с opts_knit$set(animation.fun = hook_ffmpeg_html), но не в R-Studio предварительного просмотра, но только после того, как вы нажали на More -> Сохранить как веб-страницу .... Обратите внимание, что вы должны установить ffmpeg и на своем пути.