r - 带有 Shiny 的 RMarkdown 演示文稿在本地运行良好，但无法在 ShinyServer 上打开

Question

我对RMarkdown使用小部件的简单文档有shiny疑问。我的意思是，它在本地工作得很好，但是当我想把它扔到 ShinyServer 中时它根本不起作用。实际上它没有给出任何错误。

---
title: "Test"
author: ""
date: "17.08.2015"
runtime: shiny
output: html_document
---


```{r, echo = FALSE}
library(ggplot2)
```


```{r, echo = FALSE}
data(mtcars)
selectInput('name', 'Choose a cylinder:',
            choices = sort(unique(mtcars$cyl)),
            selected = sort(unique(mtcars$cyl))[1])
data <- reactive(subset(mtcars,cyl == input$name))
number <- reactive(which(sort(unique(mtcars$cyl)) == input$name))
```

```{r, echo = FALSE}
renderPlot(ggplot(data(),aes(qsec, mpg))+
  geom_point(size = 6))
```

我使用 ShinyServer v1.3.0 并在 Revolution R Open 3.2.1 上工作。

sessionInfo()
other attached packages:
[1] ggplot2_1.0.1       rmarkdown_0.7       shiny_0.12.1
[4] RevoUtilsMath_3.2.1

loaded via a namespace (and not attached):
 [1] Rcpp_0.11.6      digest_0.6.8     MASS_7.3-40      mime_0.3
 [5] grid_3.2.1       R6_2.0.1         plyr_1.8.3       xtable_1.7-4
 [9] gtable_0.1.2     magrittr_1.5     scales_0.2.5     stringi_0.5-5
[13] reshape2_1.4.1   proto_0.3-10     tools_3.2.1      stringr_1.0.0
[17] munsell_0.4.2    httpuv_1.3.2     colorspace_1.2-6 htmltools_0.2.6