Count R functions in R code

rfuncs.py

import re
import os
import fnmatch
from collections import defaultdict

def find_files(directory, pattern):
    for root, dirs, files in os.walk(directory):
        for basename in files:
            if fnmatch.fnmatch(basename, pattern):
                filename = os.path.join(root, basename)
                yield filename

if __name__ == '__main__':
    funcs = defaultdict(int)
    for filename in find_files('.', '*.R'):
        with open(filename, encoding='cp1252') as f:
            for line in f:
                for func in re.findall(r'(\w+)\(', line):
                    funcs[func] += 1

    for name, count in sorted(funcs.items(), key=lambda v: v[1], reverse=True):
        if count < 10:
            break
        print(name, count)