在RMarkdown和Shiny中，如何将inputPanel和renderPlot包装在一个唯一的调用中

Question

让我们看一下动态报告的代码，它基本上是最小的默认模板条：

---
output: html_document
runtime: shiny
---

```{r}
inputPanel(selectInput("n_breaks", label = "Number of bins:",choices = c(10, 20, 35, 50), selected = 20))
renderPlot({hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks))})
```

我想定义一个函数f1，所以我可以运行它，并且具有完全相同的输出：

---
output: html_document
runtime: shiny
---

```{r}
f1()
```

这可能吗？

Answer 1

解决方案在value块选项中。

这是让它适用于我的示例的一种方法（虽然在实践中直接提供字符串会更容易）：

wrapFormatting