calling the lsmeans() function within a user-defined function does not work with substitute()

[technocrat]

Great. Please mark the solution for the benefit of those to follow. (No false modesty!)