'Command' design pattern in R

dp_command.R

compose_quote <- function(body_part, creature_name) {
  cat(paste0("Go for the ", body_part, ", ", creature_name, "!\n"))    
}

execute <- function(fn, ...) {
  Sys.sleep(1)
  fn(...) 
  # Or: do.call(fn, list(...))
  # Or: rlang::exec(fn, ...)
}

execute(compose_quote, "eyes", "Boo")

As discussed here:
https://www.mpj-analytics.co.uk/2019/08/29/design-patterns-r-command/

Inspired by:
http://mishadoff.com/blog/clojure-design-patterns/#episode-1-command