ap@k in R should work even if one of the vectors is empty

[StanislawSwierc]

I came across this problem when I tried to use ap@k for a recommendation system that returns no items if the confidence is low.