This gist is supposed to quickly copy all formal arguments to the Global Environment. This makes inspecting a function much easier (although I'm sure there are many easier ways to do this).

formals to environment.R

# Currently this is implemented for numeric vectors (e.g. c(1,2) and c(1:5)), character vectors, lists and logical arguments. 
# Further work might be needed, depending on the function arguments
extract_function_arguments <- function(myfunction) {
  obj <- as.list(formals(myfunction))
  lapply(seq_along(obj), function(i) {
    assign(names(obj)[i],
           if (class(obj[[i]]) == "call") {
             if (all(as.character(obj[[i]])[-1] %in% c(0:9))) {
               if (as.character(obj[[i]])[1] == ":") {
                 as.numeric(as.character(obj[[i]])[2]):as.numeric(as.character(obj[[i]])[3])
               } else {
                 as.numeric(as.character(obj[[i]]))
               }
             } else {
               if (as.character(obj[[i]])[1] == "list") {
                 as.list(as.character(obj[[i]])[-1])
               } else {
                 as.character(obj[[i]])[-1]
               }
             }
           } else {
             obj[[i]]
           },
           envir = .GlobalEnv
    )
  })
}

# the example used here uses the getsm function from the gets package
library(gets)
extract_function_arguments(getsm)