How to speed-up Log-sum-exp function over multidimensional R Arrays?

Question

I am working on speeding up a program I wrote in R. The code involves repeatedly computing LogSumExp over multidimensional arrays, i.e computing s_lnj = exp(u_lnj) / (1 + s