R Markdown 和 Shiny 交换对象

Question

我第一次创建 R Markdown 文档，我想在一个文档中呈现 Markdown 文本以及闪亮的组件，但我不知道如何在 Markdown 和 Shiny 之间交换对象 - 有什么帮助吗？

---
runtime: shiny
output: html_document
---
```{r echo=FALSE}
 subjects<-c(letters[1:20])
 inputPanel(selectInput("subject_of_interest","",subjects))
 selected_subject<-input$subject_of_interest # This is failing with error "Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)"
```
The selected subject `r selected_subject` is.....

我需要根据所选主题生成其他文本项。有什么办法吗？

Answer 1

以下将是您追求的开始。

当你有一个selectInput 时，你会想要一些东西是reactive，即对用户输入做出反应。因此，您创建了一个reactive function，它将吐出您所追求的文本。这将是帮助您入门的基础知识。

---

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

```{r, echo=FALSE}
subjects <- c(letters[1:20])
inputPanel(
 inputPanel(selectInput("subject","Select Subject",subjects,"a"))
)
subject <- reactive({
  paste0(
    "The selected subject ",
  input$subject)
})
output$text <- renderText({ 
          subject()
     })
mainPanel(
      textOutput("text")
    )
```

内联编辑

根据要求，如果您想内联，请道歉：

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

```{r, echo=FALSE}
subjects <- c(letters[1:20])
inputPanel(
 inputPanel(selectInput("subject","Select Subject",subjects,"a"))
)
subject <- reactive({
     input$subject
})
output$text <- renderText({ 
          subject()
     })

```
the selected subject `r textOutput("text")`