如何在R Shiny flexdashboard中按条件隐藏Valuebox？

要实现Valuebox的值为0时隐藏对应板块，核心是通过renderUI动态生成板块，并结合条件判断控制渲染逻辑。以下是修改后的完整代码：

---
title: "Test"
output: 
  flexdashboard::flex_dashboard:
    vertical_layout: scroll
runtime: shiny
---

```{r}
library(flexdashboard)
library(shiny)

# 定义响应式数值
value <- reactiveValues(value = sample(c(0,1), 1))

# 动态渲染Valuebox板块
renderUI({
  if(value$value > 0){
    # 满足条件时生成符合flexdashboard样式的板块
    tags$div(
      class = "section level3",
      tags$h3("Valuebox", class = "value-box"),
      valueBox(value$value)
    )
  } else {
    # 值为0时不渲染任何内容，实现隐藏
    NULL
  }
})

### 关键说明
- 不再固定编写`### Valuebox {.value-box}`板块，改用`renderUI`动态生成完整板块结构，以此实现条件控制显示/隐藏。
- 动态生成的元素必须匹配flexdashboard原生板块的HTML结构：外层用`div.section.level3`包裹，标题用`h3`并添加`value-box`类，确保样式和原生Valuebox完全一致。
- 当`value$value`为0时，返回`NULL`即可跳过板块渲染，达到隐藏效果。

### 扩展测试（可选）
如果需要手动触发数值变化测试效果，可以添加刷新按钮：
```r
# 在renderUI代码前添加以下内容
actionButton("refresh", "刷新数值")

observeEvent(input$refresh, {
  value$value <- sample(c(0,1), 1)
})

内容的提问来源于stack exchange，提问作者Ben Nutzer