Update count.r

Changed test from `is.vector` to `is.atomic`, in order to fix Issue 130.