Function category_room_events 

async fn category_room_events(
    services: &Services,
    sender_user: &UserId,
    next_batch: Option<&str>,
    criteria: &Criteria,
) -> Result<ResultRoomEvents>