使用Slidy with Shining runtime时如何使textOutput正常工作

下面的代码在本地有令人满意的结果，但是当上传到shinyapps.io上时无法工作

---
title: "shiny slidy app"
author: "IMI"
date: "11/29/2018"
output:
  slidy_presentation:
    self_contained: yes
runtime: shiny
---

```{r data, echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE}
library(shiny)
data<- data.frame(Year= 1990:1999)
```


## First

```{r slideselect, echo=T, message=FALSE, warning=FALSE, paged.print=FALSE}
sliderInput("year", "Year",
    min = min(data$Year), max = max(data$Year),
    value = c(min(data$Year),max(data$Year)))       

```

```{r print, echo=T}
year<-reactive(input$year)
output$rendtext<-renderText( year()[1]:year()[2])
textOutput("rendtext")
```   

---
标题：“闪亮的slidy应用程序”
作者：“IMI”
日期：“2018年11月29日”
输出：
幻灯片演示：
自给自足：是的
运行时间：闪亮
---
```{r data，echo=FALSE，message=FALSE，warning=FALSE，paged.print=FALSE}
图书馆（闪亮）
data我刚刚尝试了你的代码，效果很好：


我在Rstudio中执行了以下步骤：

1） 创建一个新的Rmd文件

---
title: "shiny slidy app"
author: "IMI"
date: "11/29/2018"
output:
  html_document:
    df_print: paged
  slidy_presentation:
    self_contained: yes
runtime: shiny
---

```{r data, echo=FALSE, message=FALSE, warning=FALSE, paged.print=FALSE}
library(shiny)
data<- data.frame(Year= 1990:1999)
```


## First

```{r slideselect, echo=T, message=FALSE, warning=FALSE, paged.print=FALSE}
sliderInput("year", "Year",
    min = min(data$Year), max = max(data$Year),
    value = c(min(data$Year),max(data$Year)))       

```

```{r print, echo=T}
year<-reactive(input$year)
output$rendtext<-renderText( year()[1]:year()[2])
textOutput("rendtext")
```   

---
标题：“闪亮的slidy应用程序”
作者：“IMI”
日期：“2018年11月29日”
输出：
html_文件：
df_打印：第页
幻灯片演示：
自给自足：是的
运行时间：闪亮
---
```{r data，echo=FALSE，message=FALSE，warning=FALSE，paged.print=FALSE}
图书馆（闪亮）
数据谢谢，这是由于缺少
html\u文档
，但为什么它在YAML中没有
html\u文档
的情况下在本地工作？添加
html\u文档
会使输出页面变小，我尝试了以下方法，并且它在本地和远程工作（以下是示例）。你也能试试吗？它很管用。我不知道为什么shiny的行为不同。也许我们使用的是不同的工具版本？我拥有的软件包版本。我使用的是
R版本3.5.2（2018-12-20）
和
RStudio 1.1.463
。
# Global variables can go here
library(shiny)
data <- data.frame(Year= 1990:1999)

# Define the UI
ui <- bootstrapPage(

  # Input: Simple integer interval ----
  sliderInput("year", "Year", min = min(data$Year), max = max(data$Year), value = c(min(data$Year),max(data$Year))),

  # Output: Text output summarizing the values ----
  textOutput("rendtext")

)


# Define the server code
server <- function(input, output) {

  # Reactive expression for the input values ---
  year <- reactive(input$year)  

  # Show the values ----
  output$rendtext<-renderText( year()[1]:year()[2])


}

# Return a Shiny app object
shinyApp(ui = ui, server = server)