Я создал действительно простой интерактивный блестящий документ RMarkdown.Это прекрасно работает, когда я запускаю документ в R studio.Но когда я публикую его в shinyapps.io, он работает очень медленно.Приложение действительно легкое, поэтому мне интересно, делаю ли я что-то не так с кодом.Код:
---
title: "Document.Rmd"
author: ""
date: "September 12, 2018"
output: html_document
runtime: shiny_prerendered
---
## Step 1. Create a new system, or choose a pre-existing one
```{r, context="render", echo=FALSE}
selectInput(inputId = "river", label = h3("Choose your system"),
choices = list("St. Croix" = 1, "Create your own system" = 2))
uiOutput("riverout")
conditionalPanel(
condition = "input$river == 2",
textOutput("see")
)
```
```{r, context="server"}
output$riverout<-renderUI({
ans<-reactive({input$test})
output$see<-renderText(ans())
if (input$river==1){
# textOutput("stcroix")
# tmp<-"If you read this, this chunk of code is working"
# renderText(tmp)
# renderPrint(tmp)
# print(tmp)
} else if (input$river==2){
radioButtons("test", "Choose number of dams", c(1,2,3,4,5))
}
})
```
***
Habitat App
BETA Version 1.0.1
Приложение доступно здесь: здесь приложение доступно