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

Question

我试图通过lintr在编写 R 代码时使用该包来帮助我们的开发人员组获得类似的代码风格。为了自动化这一步，如果代码中有任何错误（错误的样式），我希望我们的构建失败。如果这很重要，我们将使用 Jenkins 作为我们的构建管道。

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

在命令行上运行的（简化的）代码

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

没有返回错误，但有很多建议。

注意：我目前对“创建 R 包”解决方案不感兴趣。

Answer 1

该lintr::lint()函数在一个带有 class 的列表中返回结果"lints"。如果它的长度大于零，你就会遇到问题，所以你可以这样做

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

Answer 2

虽然 @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))"