R/join_sets.R
join_sets.Rd
Generate a small plot that will be enlarged in a modal when clicked
join_sets(x, y, by = NULL, ...)
x | a dataset |
---|---|
y | another dataset |
by | variables you plan to merge on |
... | passed to dplyr join functions |
# will generate figures in a temporary directory if (requireNamespace("dplyr", quietly = TRUE)) { data("band_members", package = "dplyr") data("band_instruments", package = "dplyr") band_instruments2 <- dplyr::bind_rows(band_instruments, band_instruments[1,]) join_sets(band_members, band_instruments2) }#>#>#>#>#>#> #> #> #> # Merge info #> #> There are <big>0</big> duplicated rows in band_members out of 3 total rows. #> #> There are <big>2</big> duplicated rows in band_instruments2 out of 4 total rows. #> #> <details> #> <summary>2 rows overlap between band_members and band_instruments2</summary> #> #> #> figure/a538d47a55_unnamed-chunk-4-1.pdf #> #> #> </details> #> #> <details> #> <summary>1 rows are in band_members but have no corresponding rows in band_instruments2</summary> #> #> figure/a538d47a55_unnamed-chunk-5-1.pdf #> #> </details> #> #> <details> #> <summary>1 rows are in band_instruments2 but have no corresponding rows in band_members</summary> #> #> figure/a538d47a55_unnamed-chunk-6-1.pdf #> #> </details> #> #> <script> #> $(function() { #> $('details').on('toggle', function() { #> if(this.open) { #> // jquery $('window').resize or $('window').trigger('resize') do not work #> window.dispatchEvent(new Event('resize')); #> } #> }) #> }) #> </script>