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

Question

我在R中使用keras包，并希望定义自定义丢失函数。

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

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