R/filter_summary_pie_box.R
    filter_summary_pie_box.RdData visualization by pie chart / box plot
filter_summary_pie_box(
  MAE,
  samples_discard = NULL,
  filter_type,
  sample_condition
)A multi-assay experiment object
The list of samples to filter
Either 'By Microbes' or 'By Metadata'
Which condition to check e.g. 'SEX'
A plotly object
data_dir <- system.file("extdata/MAE.rds", package = "animalcules")
toy_data <- readRDS(data_dir)
result <- filter_summary_pie_box(toy_data,
  samples_discard = c("subject_2", "subject_4"),
  filter_type = "By Microbes",
  sample_condition = "SEX"
)
result