Applying a Function to the Edges of a Multidimensional Array in R Without Hard-Coding the Number of Dimensions