R/construct_runners_check_args.R

In rworkflows: Test, Document, Containerise, and Deploy R Packages

construct_runners_check_args <- function(os,
                                         bioc,
                                         r,
                                         cont,
                                         rspm,
                                         python_version,
                                         versions_explicit=FALSE,
                                         verbose=TRUE){
  
  
  #### Fill names ####
  args <- list(os=os, bioc=bioc, r=r, cont=cont, rspm=rspm, 
               python_version=python_version)
  args2 <- lapply(stats::setNames(names(args),
                                  names(args)), 
         function(nm){
           if(nm=="os") return(args[[nm]])
           if(length(args[[nm]])==length(args$os)){
             if(is.null(names(args[[nm]]))){
               names(args[[nm]]) <- args$os
             }
             return(args[[nm]])
           } else {
             if(is.null(names(args[[nm]])) &&
                length(args[[nm]])==1){
               messager("Applying the same",shQuote(nm),
                        "parameter to all",length(os),"'os':",
                        shQuote(args[[nm]]),
                        v=verbose)
               stats::setNames(as.list(rep(args[[nm]],length(os))),
                               args$os)
             } else {
               stopper("The length of",shQuote(nm),
                       "must match the length of 'os' or be of length 1.")
             }
           }
         } 
  )
  #### Check names #### 
  for(nm in names(args2)[-1]){
    if(!all(os %in% names(args2[[nm]]))){
      stopper("All `os` must be names of elements in",
              paste0("`",nm,"`"),"argument.")
    }
  } 
  #### Return ####
  return(args2)
}