yuanfan 可能是一种蠢蠢的死法
十分钟写个例子（窃以为这个例子简短高能，值得收受西瓜贿赂，前面的反斜杠解释还不值），只是看一眼总不会死吧：
---
title: "下拉菜单控制直方图的窗宽"
output: html_document
---
提供一个下拉菜单。
```{r, echo=FALSE}
n_breaks = c(5, 10, 15, 20)
shiny::selectInput(
"n_breaks",
label = "频数调整（等宽）",
choices = n_breaks,
selected = 5)
```
预先画出所有的图，放在一个类名为 `hist-all` 的层中。
```{r, class.chunk='hist-all'}
x = faithful$eruptions
for (i in n_breaks) {
hist(x, breaks = seq(min(x), max(x), length.out = i + 1),
main = paste('n = ', i))
}
```
但是先不要显示它们。
```{css}
/* 默认隐藏所有图片 */
.hist-all img { display: none; }
/* 但图上如果加了 show 类就显示 */
.hist-all .show { display: block; }
```
召唤 JS 法力。
```{js}
(d => {
const s = d.getElementById('n_breaks'), // 下拉菜单
imgs = d.querySelectorAll('.hist-all img'); // 图片元素数组
// 按照 s 中被选中菜单项的下标 i 来向第 i 幅图添加类名“show”并移除其它图的类名
function showImg() {
const i = s.selectedIndex;
imgs.forEach((el, k) => {
// k 为图片元素的下标，i 为选中菜单的下标，若二者相等则添加 show 类
el.classList.toggle('show', k == i);
});
}
// 小试牛刀，显示第一幅图
showImg();
// 当下拉菜单的值变动时（触发 onchange 事件），重新显示相应的图片
s.onchange = showImg;
})(document);
```
这是个纯静态 HTML 页面，不需要部署到服务器，用 R Markdown 生成之后就可以脱离 R 运行。JS 代码中我用了相对较新的 => 语法，它是用来生成匿名函数的，x => {} 等价于 function(x) {}；同理，(x, y) => {} 等价于 function(x, y) {}。最外面一层函数是为了避免创建全局对象、污染全局环境，而把所有对象都创建在一个匿名函数之内，最后再执行这个匿名函数（这是 JS 里最常见的伎俩），这伎俩 R 里面一样可以用（如 (function(x) {x + 1})(5)）。除此之外，别的代码应该是不言自明的。
