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

Question

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

我知道我们可以使用expect_lint_free函数，但我们不是在制作包，而是脚本文件。lint函数的输出看起来很好，但即使当林特返回改进建议时，构建也会通过。我如何获得一个非零的退出状态，使Jenkins构建失败？

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

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

不返回错误，但返回大量建议。

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

Answer 1

lintr::lint()函数返回包含"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))"