R/assign_params.R

In petermeissner/assignparams: Evaluate Comma Separated Function Parameter in Global Environment

#' evaluate comma separated function parameter in global environment
#'
#'
#' @export
assign_params <- function() {
  ls_old  <- ls(globalenv())
  context <- rstudioapi::getActiveDocumentContext()
  text    <- context$selection[[1]]$text
    tryCatch(
      eval(parse(text=text[i]), envir=globalenv()),
      error = function(e){
        tmp   <- eval(parse(text = paste0("function(",text,"){}")))
        val   <- formals(tmp)
        iffer <- as.character(val)!=""
        nam   <- names(val)[iffer]
        val   <- val[iffer]
        eval(parse(text=paste(nam, val, sep="=")), envir = globalenv())
      }
    )
  tmp <- ls(globalenv())[ !(ls(globalenv()) %in% ls_old)]
  message(paste(tmp, collapse = " "))
  message(".")
  NULL
}