Как заставить textOutput работать при использовании Slidy с Shiny Runtime - PullRequest
Новая
       7

Как заставить textOutput работать при использовании Slidy с Shiny Runtime

0 голосов
/ 30 ноября 2018

Следующий код имеет удовлетворительные результаты локально, но при загрузке на 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")
```

shinyapps.io :

enter image description here

местный:

enter image description here

Есть предложения?

1 Ответ

0 голосов
/ 01 января 2019

Я только что попробовал ваш код, и он работал хорошо:

enter image description here

Я сделал следующие шаги в 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")
```

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)

shinyapps.io

...