时间戳

首页 > 解决方案 > 将“y 确认”确认对话框添加到 R 函数？

r - 将“y 确认”确认对话框添加到 R 函数？

问题描述

对于某些 R 函数，提示用户确认他们确定他们确实想要运行该函数可能很有用。例如，一些很少运行的函数，几乎可以肯定会以交互方式运行（即在用户在场的情况下），并且会执行不可逆的操作，例如从文件系统中清除临时文件等。

有没有办法提示用户在 R 函数中进行键盘输入，这样用户必须按“y”继续（或“n”忽略，“c”取消等）

somefunction <- function() {
  
  # -- code for prompt for user confirmation --

  # some irreversible actions 
  # e.g. file.remove(...)
}

标签： r

解决方案

为什么不是一个简单的readline函数来获取用户的输入？

checkFunction <- function() {
  user_input <- readline("Are you sure you want to run this? (y/n)  ")
  if(user_input != 'y') stop('Exiting since you did not press y')
  print('Do something')
}

checkFunction()
#Are you sure you want to run this? (y/n)  y
#[1] "Do something"

checkFunction()
#Are you sure you want to run this? (y/n)  n
#Error in checkFunction() : Exiting since you did not press y

推荐阅读