Nothing
# This function takes a vector of strings for object names is an
# environment specified by the calling function and returns a vactor
# of strings for object names selected by the function passed.
#
# Copyright 2002, J. Zhang. All rights reserved.
#
pickObjs <- function (objNames, fun = noAuto){
if(length(objNames) == 0){
return(objNames)
}
whichOnes <- NULL
for(i in objNames){
whichOnes <- c(whichOnes, fun(i))
}
return (objNames[whichOnes])
}
noAuto <- function(x) {
if(regexpr("^Autoloads", x) > 0 ){
return(FALSE)
}else{
return(TRUE)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.