Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
roger peng's listlabeling challenge
#roger peng's listlabeling challenge from
#http://simplystatistics.tumblr.com/post/11988685443/computing-on-the-language
#create three example variables for a list
x <- 1
y <- 2
z <- "hello"
#create the function
makeList <- function(...) {
#put all values into a list
argument_values <- list(...)
#save all argument names into another list
argument_names <- as.list(sys.call())
#cycle through the first list and label with the second, ignoring the function itself
for ( i in 2:length(argument_names) ){
names(argument_values)[i-1] <- argument_names[i]
}
#return the newly-labeled function
argument_values
}
#display the results
makeList( x , y , z )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment