Nothing
#' @keywords internal
#'
filterCommonRows <- function(df1, df2, verbose = TRUE){
nrow.old <- nrow(df1)
df1 <- df1 %>% dplyr::filter(.data$School_code %in% df2$School_code)
nrow.new <- nrow(df1)
args <- as.list(match.call())[-1]
args$df1 <- as.character(args$df1)
args$df2 <- as.character(args$df2)
if(verbose){cat("Deleted ", nrow.old - nrow.new, " rows of ",
args$df1, " not included in ", args$df2, " \n")}
return(df1)
}
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.