r - Keras 的 R 接口：如何调试自定义损失函数？

Question

我在 R 中使用keras包，并想定义一个自定义损失函数。

虽然我能够找到一些示例（其中一个），但没有关于如何调试自己的损失函数的内容。也就是说，即使我让它工作，我如何验证它是否正常工作（例如，取一些y_trueand y_pred，然后进行计算）？

我尝试print在函数内添加一条语句，但没有任何结果。