a_corp <- get_fnames(system.file("extdata", "cleveland", package = "mclm"))
b_corp <- get_fnames(system.file("extdata", "roosevelt", package = "mclm"))
slma_ex <- slma(a_corp, b_corp, keep_intermediate = TRUE)
gov <- details(slma_ex, "government")
gov$summary
# A bit of tidy manipulation to shorten filenames
if (require("dplyr") && require("tidyr")) {
as_tibble(gov, rownames = "files") %>%
tidyr::separate(files, into = c("file_A", "file_B"), sep = "--") %>%
dplyr::mutate(dplyr::across(dplyr::starts_with("file"), short_names))
}
Run the code above in your browser using DataLab