使用dplyr中的summary函数中的if语句调用自定义函数

I need to call a custom function to do some calculation. In this function, there is one if statement to check the input values. But my codes don't return values I expected.I need to call a custom function to do some cal