Создание реактивного приложения Shiny в документе уценки

Question

На основании этой статьи Я пытаюсь создать документ Rmarkdown с функциональностью Shiny.

На основании ссылки я добавил код:

---
title: "Untitled"
runtime: shiny
output: html_document
---


```{r eruptions, echo=FALSE}
inputPanel(
  selectInput("input_1", label = "Gear:",
              choices = c(0, 1))

)

renderPlot({
  output$plot_distribution <- renderPlot({
    ggplot(mtcars, aes(x = cyl, y = disp)) + geom_boxplot()
  })
})
```

Это показывает мне поля ввода, но не графики. Любые мысли о том, что я должен сделать, чтобы: а) показать график и б) сделать все интерактивным (поэтому убедитесь, что график меняется в зависимости от ввода пользователя

Answer 1

Вывод plot_distribution определен на стороне сервера, но не используется в пользовательском интерфейсе.

---
title: "Untitled"
runtime: shiny
output: html_document
---


```{r eruptions, echo=FALSE}
library(ggplot2)
inputPanel(
selectInput("input_1", label = "Gear:",
          choices = c(0, 1))

)

renderPlot({

ggplot(mtcars, aes(x = cyl, y = disp)) + geom_boxplot()

})
```