如何修改R语言askYesNo弹窗选项 或实现自定义单选弹窗功能

原代码失效原因 #

askYesNo() 本质是为是非确认场景设计的工具，各类GUI前端（包括RStudio内置弹窗、系统原生交互弹窗）的按钮文本大多为硬编码的Yes/No/Cancel，传入的prompts参数仅在纯控制台交互场景下生效，图形弹窗场景下不会被读取，因此修改不生效。

解决方案 #

方案1：基础包自带图形单选框（无需安装额外依赖） #

使用R内置的select.list()函数，开启graphics=TRUE参数即可弹出原生图形选择窗口，支持点击单选：

next_step <- select.list(
  choices = c("摩洛哥", "突尼斯", "取消"),
  title = "选择国家",
  multiple = FALSE,
  graphics = TRUE
)

返回值为选中的选项文本，点击取消或关闭窗口会返回空字符串，可自行判断后续逻辑。如果需要保留原英文选项，直接修改choices内的文本即可。

方案2：自定义按钮式弹窗（和askYesNo样式完全一致） #

如果需要和askYesNo()相同的按钮式弹窗样式，可使用svDialogs包的dlgBox()函数，支持完全自定义按钮文本：

1. 安装依赖包

install.packages("svDialogs")

2. 调用示例

library(svDialogs)
next_step <- dlgBox(
  title = "选择国家",
  message = "请选择目标国家",
  buttons = c("摩洛哥", "突尼斯", "取消")
)$res

返回值为点击的按钮文本，直接匹配判断即可执行后续逻辑。

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