Keras R接口：如何调试自定义丢失功能？

Question

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

虽然我可以找到一些示例（其中一个），但是如何调试自己的损失函数却一无所获。也就是说，即使我让它工作，我怎么能验证它正常工作（如采取一些y_true和y_pred，并经过计算）？

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