int_antsProcessArguments <- function(args) {
if (typeof(args) == "list") {
char_vect <- NULL
for (i in (1:length(args))) {
if (length(names(args)) != 0) {
if (nchar(names(args)[i]) > 1) {
char_vect <- c(char_vect, paste("--", names(args)[i], sep = ""))
} else {
char_vect <- c(char_vect, paste("-", names(args)[i], sep = ""))
}
}
if (typeof(args[[i]]) == "list") {
char_vect <- c(char_vect, paste(args[[i]]$name, "[", sep = ""))
args[[i]]$name <- NULL
for (j in (1:length(args[[i]]))) {
char_vect <- c(char_vect, as.character(int_antsExtractXptrAsString(args[[i]][[j]])))
}
char_vect <- c(char_vect, "]")
} else {
char_vect <- c(char_vect, as.character(int_antsExtractXptrAsString(args[[i]])))
}
}
}
return(char_vect)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.