@@ -801,6 +801,7 @@ calc_taxon_abund <- function(obj, data, cols = NULL, groups = NULL,
801801# ' @family calculations
802802# '
803803# ' @examples
804+ # ' \donttest{
804805# ' # Parse data for example
805806# ' x = parse_tax_data(hmp_otus, class_cols = "lineage", class_sep = ";",
806807# ' class_key = c(tax_rank = "taxon_rank", tax_name = "taxon_name"),
@@ -829,6 +830,7 @@ calc_taxon_abund <- function(obj, data, cols = NULL, groups = NULL,
829830# ' calc_n_samples(x, data = "tax_data", other_cols = TRUE)
830831# ' calc_n_samples(x, data = "tax_data", other_cols = 2)
831832# ' calc_n_samples(x, data = "tax_data", other_cols = "otu_id")
833+ # ' }
832834# ' @export
833835calc_n_samples <- function (obj , data , cols = NULL , groups = " n_samples" ,
834836 other_cols = FALSE , out_names = NULL , drop = FALSE ,
@@ -889,6 +891,7 @@ calc_n_samples <- function(obj, data, cols = NULL, groups = "n_samples",
889891# ' @family calculations
890892# '
891893# ' @examples
894+ # ' \donttest{
892895# ' # Parse data for example
893896# ' x = parse_tax_data(hmp_otus, class_cols = "lineage", class_sep = ";",
894897# ' class_key = c(tax_rank = "taxon_rank", tax_name = "taxon_name"),
@@ -917,6 +920,7 @@ calc_n_samples <- function(obj, data, cols = NULL, groups = "n_samples",
917920# ' calc_prop_samples(x, data = "tax_data", other_cols = TRUE)
918921# ' calc_prop_samples(x, data = "tax_data", other_cols = 2)
919922# ' calc_prop_samples(x, data = "tax_data", other_cols = "otu_id")
923+ # ' }
920924# ' @export
921925calc_prop_samples <- function (obj , data , cols = NULL , groups = " prop_samples" ,
922926 other_cols = FALSE , out_names = NULL , drop = FALSE ,
0 commit comments