Как вы вычисляете цикломатическую сложность для функций R?

Цикломатическая сложность измеряет, как выполняется Любые возможные ветви могут быть взяты через функцию. Есть ли существующая функция / инструмент для его расчета для функций R? Если нет, то приветствуются предложения по лучшему способу его написания.

Недорогое начало для этого - подсчитать все вхождения if , ifelse или переключатель в вашей функции. Однако, чтобы получить реальный ответ, вам нужно понимать, когда ветки начинаются и заканчиваются, что намного сложнее. Может быть, нам помогут некоторые инструменты анализа R?