alternatives to nested for loops

nested.R

check <- function(dog, location) { cat("Checking for", dog, "in", location, "\n") }


dogs      <- c('poodle', 'greyhound', 'mutt')
locations <- c('park', 'street', 'yard')



#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Nested for-loop
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
for (dog in dogs) {
  for (location in locations) {
    check(dog, location)
  }
}


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Expand grid + pwalk
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
expand.grid(dog=dogs, location=locations, stringsAsFactors = FALSE) %>%
  pwalk(check)


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# nested walk
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
walk(locations, ~walk(dogs, check, .x))


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# cross2 + pwalk
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cross2(dogs, locations) %>%
  transpose() %>%
  pwalk(check)


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# cross2 + walk. v2
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cross2(dogs, locations) %>%
  walk(~check(dog=.x[[1]], location=.x[[2]]))


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Cross + explicit names + walk
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cross(list(dog=dogs, location=locations)) %>%
  walk(~check(dog=.x$dog, location=.x$location))


#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# Using cross() instead of cross2() for explicit naming
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
cross(list(dog=dogs, location=locations)) %>%
  transpose() %>%
  pwalk(check)

If you're not looking for a side effect, and can live without the formula interface you have some base options too:

check <- function(dog, location) { paste("Checking for", dog, "in", location, "\n")}
dogs      <- c('poodle', 'greyhound', 'mutt')
locations <- c('park', 'street', 'yard')

cat(outer(dogs, locations, check))
cat(kronecker(dogs, locations, check))

I do use outer() from time to time myself.