如何使textOutput在使用Slidy和闪亮运行时工作

Question

下面的代码在本地有令人满意的结果，但是当上传到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}

图书馆(闪亮)

数据<- data.frame(Year= 1990:1999)

## First

```{r slideselect, echo=T, message=FALSE, warning=FALSE, paged.print=FALSE}

sliderInput(“年份”，“年份”)，

min = min(data$Year), max = max(data$Year),

value = c(min(data$Year),max(data$Year)))       

```{r print, echo=T}

年份<-反应性(投入$年份)

输出$rendtext<-renderText(年份()1:年份()2)

textOutput("rendtext")

shinyapps.io

​

​

当地：

​

​

有什么建议吗？

Answer 1

我刚试过你的代码，效果很好：

​

​

我在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}

图书馆(闪亮)

数据<- data.frame(Year= 1990:1999)

## First

```{r slideselect, echo=T, message=FALSE, warning=FALSE, paged.print=FALSE}

sliderInput(“年份”，“年份”)，

min = min(data$Year), max = max(data$Year),

value = c(min(data$Year),max(data$Year)))       

```{r print, echo=T}

年份<-反应性(投入$年份)

输出$rendtext<-renderText(年份()1:年份()2)

textOutput("rendtext")

2)通过专用按钮在shinyapp.io上发布

此外，我尝试了一个基本的闪亮部署(查看闪亮的指南)，使用它也可以:它既运行在本地，也在shinyapp.io上运行。

# 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)

​

​