This line `%<-%` <- zeallot::`%<-%` raises > Variable and function name style should be snake_case.