Nothing
#' @importFrom dplyr anti_join
#' @importFrom dplyr bind_rows
#' @importFrom dplyr mutate
#' @importFrom dplyr select
get_newlevel_tibble <- function(Mlist1, Mlist2){
out_vec <- vector("list", length = length(Mlist1))
if(length(Mlist2) > 0){
for(i in 1:length(out_vec)){
out_vec[[i]] <- anti_join(Mlist1[[i]], Mlist2[[i]], by = "value") %>%
mutate(origin_df = "df1") %>%
bind_rows(
anti_join(Mlist2[[i]], Mlist1[[i]], by = "value") %>%
mutate(origin_df = "df2")) %>%
select(-prop)
}
}
return(out_vec)
}
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.