Nothing
.recommend_attribute <- function(S, LHS, RHS,
attribute_filter,
attributes) {
# Compute closure
S <- .compute_closure(S, LHS, RHS,
attributes = attributes)
# Which attributes are seeked
idx <- match(attribute_filter, attributes)
# Return the recommendation for those attributes
rec <- S$closure[idx]
names(rec) <- attribute_filter
return(rec)
}
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.