Сохранить сюжет из интерактивного R Markdown / Shiny output - PullRequest
Новая
       29

Сохранить сюжет из интерактивного R Markdown / Shiny output

0 голосов
/ 14 марта 2019

Недавно я использовал Markdown и Shiny в R Studio v1.1.456 (версия R 3.4.3) для создания выходного HTML-файла.HTML-файл просто создает график, который пользователь может обновить, изменив некоторые основные входные данные.Я создал простой скрипт R Markdown (.rmd) ниже для целей тестирования.Я просто хочу добавить подсказку (флажок?) В html-файл, который позволяет пользователю (т.е. мне!) Локально сохранять определенные графики в формате jpeg.

ПРИМЕЧАНИЕ. Это простое локальное приложение, которое я запускаю на своем компьютере.Я не хочу размещать приложение Shiny или использовать серверы и т. Д. 

---
title: "Example"
output: html_document
runtime: shiny
---

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

```{r Libraries and Data, include=FALSE}
library(ggplot2)
x <- c(1,3,4,5,8,9,12,12,13,17)
y <- c(30,32,35,36,38,38,40,41,44,47)
z <- rep(0,10)
DF <- data.frame(x,y,z)
```

```{r model, echo=FALSE}
numericInput("coef1","input coefficient 1:",1.5)
numericInput("coef2","input coefficient 2:",3)

renderPlot({
  coef1 <- input$coef1
  coef2 <- input$coef2

  for (i in 1:10){
    DF$z[i] <- sqrt((coef1*(DF$x[i])+coef2*(DF$y[i])))
  }

  plot <- ggplot(data=DF,aes(x=x,y=y)) + geom_point()
  plot + geom_line(aes(x=x,y=z),colour="red") 
})
```
...