R flexdashboard提交按钮控制失效及conditionalPanel显示异常求助

以下是符合需求的完整可运行代码，同时解决你遇到的两个问题：

---
title: "Data Source Selector"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(shinyjs)
library(shinyWidgets)

# 启用shinyjs用于控制按钮状态
useShinyjs()

Sidebar {.sidebar} #

# 初始无选中的单选按钮
prettyRadioButtons(
  inputId = "data_source",
  label = "Choose Data Source:",
  choices = c("Upload File" = "upload", "Data from Database" = "db"),
  selected = character(0), # 关键：设置初始无选中项
  status = "info",
  inline = FALSE
)

# 动态控制submit按钮的禁用/启用
observe({
  if (input$data_source == "upload") {
    enable("submit")
  } else {
    disable("submit")
  }
})

# 初始禁用的submit按钮
actionButton(
  inputId = "submit",
  label = "Submit",
  disabled = TRUE
)

# Upload File对应的面板：包含文件上传、复选框、单选按钮
conditionalPanel(
  condition = "input.data_source === 'upload'",
  fileInput(
    inputId = "file_upload",
    label = "Upload CSV File",
    accept = ".csv"
  ),
  checkboxInput(
    inputId = "show_preview",
    label = "Show Data Preview",
    value = TRUE
  ),
  prettyRadioButtons(
    inputId = "data_format",
    label = "Data Format:",
    choices = c("Standard" = "std", "Custom" = "custom"),
    selected = "std"
  )
)

# Database对应的面板
conditionalPanel(
  condition = "input.data_source === 'db'",
  textInput(inputId = "db_host", label = "Host Address"),
  textInput(inputId = "db_name", label = "Database Name")
)

Main Content #

# 处理提交逻辑，避免空值崩溃
observeEvent(input$submit, {
  # 确保文件已上传再执行后续操作
  req(input$file_upload)
  
  raw_data <- read.csv(input$file_upload$datapath)
  
  if (input$show_preview) {
    renderTable({ head(raw_data) })
  } else {
    renderText({ sprintf("Successfully uploaded %d rows of data", nrow(raw_data)) })
  }
})

问题1：点击"Upload File"崩溃的原因与修复 #

• 原代码大概率未做空值校验，在文件未上传时就尝试读取，导致报错；另外单选按钮默认会选中第一个选项，初始状态不符合需求，触发了未准备好的逻辑。
• 修复：
  • 用selected = character(0)强制单选按钮初始无选中，避免默认触发上传逻辑。
  • 在提交事件中用req(input$file_upload)确保文件存在后再执行读取操作，阻断空值报错。

问题2：ConditionalPanel内组件不显示的原因与修复 #

• 常见原因：条件表达式错误、依赖包未加载、组件ID冲突。
• 修复：
  • 确保条件表达式使用正确的input ID和选项值（比如input.data_source === 'upload'，与单选按钮的choices值对应）。
  • 加载所有用到的包（比如shinyWidgets用于渲染prettyRadioButtons），避免组件因依赖缺失无法渲染。
  • 检查组件ID是否重复，确保每个组件的inputId唯一。

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