在函数内调用 stop() 会导致 R CMD Check 抛出错误

Question

我正在尝试从内部包函数 (stop_quietly()) 中调用 stop()，它应该会中断该函数并返回到顶部。这可行，除了 R CMD Check 认为这是一个错误，因为我正在强制停止。

如何绕过 R CMD 检查将此解释为错误？该函数需要停止，因为它需要用户输入作为确认，然后才能在给定位置创建文件目录树。该代码当前生成一条消息并停止该函数。

tryCatch({
      path=normalizePath(path=where, winslash = "\\", mustWork = TRUE)
      message(paste0("This will create research directories in the following directory: \n",path))
      confirm=readline(prompt="Please confirm [y/n]:")
      if(tolower(stringr::str_trim(confirm)) %in% c("y","yes","yes.","yes!","yes?")){
         .....
         dir.create(path, ... [directories])
         .....
       }
       message("There, I did some work, now you do some work.")
      }
        else{
        message("Okay, fine then. Don't do your research. See if I care.")
        stop_quietly()
      }
    },error=function(e){message("This path does not work, please enter an appropriate path \n or set the working directory with setwd() and null the where parameter.")})

stop_quietly 是一个退出函数I took from this post，修改了error=NULL，它抑制了R 作为浏览器执行错误处理程序。我不希望函数终止到浏览器我只是希望它退出而不在 R CMD 检查中引发错误。

stop_quietly <- function() {
  opt <- options(show.error.messages = FALSE, error=NULL)
  on.exit(options(opt))
  stop()
}

这是 R CMD 产生的错误的组成部分：

-- R CMD check results ------------------------------------------------ ResearchDirectoR 1.0.0 ----
Duration: 12.6s

> checking examples ... ERROR
  Running examples in 'ResearchDirectoR-Ex.R' failed
  The error most likely occurred in:
  
  > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
  > ### Name: create_directories
  > ### Title: Creates research directories
  > ### Aliases: create_directories
  > 
  > ### ** Examples
  > 
  > create_directories()
  This will create research directories in your current working directory: 
  C:/Users/Karnner/AppData/Local/Temp/RtmpUfqXvY/ResearchDirectoR.Rcheck
  Please confirm [y/n]:
  Okay, fine then. Don't do your research. See if I care.
  Execution halted

Answer 1

由于您的函数具有全局副作用，我认为check 不会喜欢它。如果您要求用户将tryCatch 放在顶层，然后让它捕获错误，情况会有所不同。但是考虑一下这种情况：用户定义f() 并调用它：

f <- function() {
  call_your_function()
  do_something_essential()
}
f()

如果您的函数静默导致它跳过f() 的第二行，可能会给用户带来很多麻烦。

你可以做的是告诉用户将你的函数调用包装在tryCatch()中，并让它捕获错误：

f <- function() {
  tryCatch(call_your_function(), error = function(e) ...)
  do_something_essential()
}
f()

这样用户就会知道你的函数失败了，并且可以决定是否继续。

从 cmets 中的讨论和您对问题的编辑来看，您的功能似乎只打算以交互方式使用，因此上述情况不是问题。在这种情况下，您可以通过跳过示例来避免R CMD check 问题，除非它是交互式运行的。这相当简单：在像create_directories() 这样的函数的帮助页面中，将您的示例设置为

if (interactive()) {
  create_directories()
  # other stuff if you want
}

检查运行时interactive() 返回FALSE，因此这将阻止检查中发生错误。你也可以在create_directories() 中使用tryCatch 来捕捉来自下方的错误，如果这在你的包中更有意义的话。