Nothing
#' A simple function for joining two tables by their
#' intersected columns
#'
#' @param x `data.frame`
#' @param y `data.frame`
#' @return `data.frame`
innerJoinByCommonCols <- function(x, y) {
by <- intersect(names(x), names(y))
dplyr::inner_join(x, y, by = by)
}
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.