如何使用 lintr::lint() 获得非零退出状态以使构建失败

How to get non-zero exit status with lintr::lint() in order to fail a build

我正在尝试通过使用lintr包来帮助我们的开发人员在编写R代码时获得相似的代码风格。为了自动化这一步,我希望我们的构建在代码中有任何错误(错误的样式)时失败。如果重要的话,我们正在使用 Jenkins 作为我们的构建管道。

我知道我们可以使用expect_lint_free功能,但我们不是在制作包,只是脚本文件。 lint 函数的输出看起来不错,但即使在 linter returns 改进建议时构建也会通过。如何获得将使 Jenkins 构建失败的非零退出状态?

命令行上的(简化)代码运行

Rscript -e "lintr::lint('my_script.R')"

returns 没有错误,但有很多建议。

注意:我目前对 "Create an R package" 解决方案不感兴趣。

lintr::lint() 函数 returns 生成包含 class "lints" 的列表。如果它的长度大于零,你就会遇到问题,所以你可以这样做

Rscript -e "quit(save = 'no', status = length(lintr::lint('my_script.R')))"

虽然@user2554330 的解决方案有效并以非零退出代码退出,但它抑制了 lintr 的输出。但是,当它失败时,您通常希望看到它在哪里失败。 你可以这样实现:

Rscript -e "errors <- lintr::lint('my_script.R'); print(errors); quit(save = 'no', status = length(errors))"

或所有 .r 个文件:

Rscript -e "errors <- lintr::lint_dir(); print(errors); quit(save = 'no', status = length(errors))"