闪亮的文档：如何居中对齐 RenderPlot 的输出

Question

我正在 R 中创建一个闪亮的文档，并希望使用闪亮的 RenderPlot 生成的绘图居中，或右，或高度 = 50%。但是，r 块中的 fig.align=center 或 right 或 out-width = "50%" 不会影响输出（我想它是针对直接在 R 中生成的图形，而不是通过 Shiny 生成的）。如何居中？

尝试更改out.width，或fig.align，它不会改变任何东西。

--
title: "Untitled"
author: "Gahis"
date: "8/4/2021"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


```{r eruptions, echo=FALSE, fig.align='right', out.width="50%"}
inputPanel(
  selectInput("n_breaks", label = "Number of bins:",
              choices = c(10, 20, 35, 50), selected = 20),
  
  sliderInput("bw_adjust", label = "Bandwidth adjustment:",
              min = 0.2, max = 2, value = 1, step = 0.2)
)

renderPlot({
  hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
       xlab = "Duration (minutes)", main = "Geyser eruption duration")
  
  dens <- density(faithful$eruptions, adjust = input$bw_adjust)
  lines(dens, col = "blue")
})
```

谢谢！

Answer 1

以下是如何减小绘图宽度并使其居中的方法。添加这个 CSS：

<style>
.center50 { 
  margin: auto;
  width: 50%;
}
</style>

然后将renderPlot 包含在div 中，并使用center50 类：

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

<style>
.center50 { 
  margin: auto;
  width: 50%;
}
</style>

```{r}
inputPanel(
  selectInput("n_breaks", label = "Number of bins:",
              choices = c(10, 20, 35, 50), selected = 20),
  
  sliderInput("bw_adjust", label = "Bandwidth adjustment:",
              min = 0.2, max = 2, value = 1, step = 0.2)
)
```

```{r}
div(class = "center50",
    
    renderPlot({
      hist(faithful$eruptions, probability = TRUE, breaks = as.numeric(input$n_breaks),
           xlab = "Duration (minutes)", main = "Geyser eruption duration")
      dens <- density(faithful$eruptions, adjust = input$bw_adjust)
      lines(dens, col = "blue")
    })
    
)
```