#' Serches list entries for given element and returns T/F vektor of length list
#'
#' @param x element to be searched
#' @param list list
#'
#' @return
#' @export
#'
#'
contain.list <- function(x, list) {
return <- c()
for(i in 1:length(list)) {
return <- c(return, x %in% list[[i]])
}
return
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.