Nothing
#Compares two lists
#returnList = TRUE gives a list of logical vectors
#returnList = FALSE gives a logical vector
compList <- function(list1, list2, returnList = FALSE){
outList <- list()
length(outList) <- length(list1)
for(i in 1:length(list1)){
for(j in 1:length(list2)){
outList[[i]][j] <- setequal(list1[[i]], list2[[j]])
}
}
outVec <- sapply(outList, function(x) as.logical(sum(as.numeric(x))))
if(returnList) outList else outVec
}
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.