R/parse.plink.options.R

In tshmak/Rplink: R interface to Plink 1.9

parse.plink.options <- function(options) {
  l <- length(options)
  names <- names(options)
  Names <- gsub("\\.", "-", names)
  cmd <- ""
  for(i in 1:l) {
    if(is.null(options[[i]])) options[[i]] <- ""
    if(is.logical(options[[i]])) {
      if(options[[i]]) options[[i]] <- "" else next
    }
    cmd <- paste(cmd, paste0("--", Names[i]), options[[i]])
  }
  return(cmd)
}