Question

我最近在R Studio v1.1.456（R版本3.4.3）中使用了Markdown和Shiny来创建输出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") 
})
```

通过交互式R Markdown / Shiny输出保存图块

0 个答案: