如何在Shiny应用中生成结构正确的多层级YAML导出文件？

要实现将所有选项置于test_yaml同一层级下，核心是构建正确的嵌套命名列表，避免重复键或无键元素导致的YAML结构错误。

错误原因 #

出现空键通常是因为你没有将test_yaml下的所有选项嵌套到同一个子列表中，比如错误地拆分了test_yaml键，或者使用了无键名的元素：

# 错误示例：拆分test_yaml键导致空键
yaml_data <- list(
  test_yaml = input$select_option,
  = input$extra_option  # 无键名，生成空键
)

正确实现代码 #

以下是完整的Shiny应用示例，所有选项都会被嵌套在test_yaml层级下：

library(shiny)
library(yaml)

ui <- fluidPage(
  # 主选择组件
  selectInput("main_opt", "主选项", choices = c("选项1", "选项2", "选项3")),
  # 额外配置选项
  textInput("custom_text", "自定义文本"),
  numericInput("custom_num", "自定义数值", value = 5),
  checkboxInput("custom_bool", "启用功能", value = TRUE),
  # 导出按钮
  downloadButton("export_yaml", "导出YAML")
)

server <- function(input, output) {
  output$export_yaml <- downloadHandler(
    filename = function() { "config.yaml" },
    content = function(file) {
      # 构建嵌套结构：test_yaml作为父键，内部包含所有子选项
      yaml_content <- list(
        test_yaml = list(
          main_option = input$main_opt,
          custom_text = input$custom_text,
          custom_number = input$custom_num,
          feature_enabled = input$custom_bool
        )
      )
      # 导出YAML文件
      yaml::write_yaml(yaml_content, file)
    }
  )
}

shinyApp(ui, server)

导出的正确YAML结构 #

运行应用并导出后，生成的YAML会保持正确的多层级结构：

test_yaml:
  main_option: 选项1
  custom_text: 我的自定义文本
  custom_number: 5
  feature_enabled: true

关键要点 #

• 所有需要放在test_yaml下的选项，必须作为test_yaml对应的子列表元素存在，不能单独拆分出test_yaml键。
• 确保每个子选项都有明确的键名（比如main_option、custom_text），避免无键名的元素导致空键错误。

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