diff --git a/R/trans_abund.R b/R/trans_abund.R index 6899d42..f9aa8c9 100644 --- a/R/trans_abund.R +++ b/R/trans_abund.R @@ -892,7 +892,7 @@ trans_abund <- R6Class(classname = "trans_abund", } invisible(self) } - ), + ), private = list( adjust_axis_facet = function(plot_data, x_axis_name, order_x){ # order x axis samples and facet diff --git a/R/trans_diff.R b/R/trans_diff.R index fc37b31..942d5ef 100644 --- a/R/trans_diff.R +++ b/R/trans_diff.R @@ -1580,16 +1580,8 @@ trans_diff <- R6Class(classname = "trans_diff", } tree <- tree + theme(legend.position = "right", legend.title = element_blank()) tree - }, - #' @description - #' Print the trans_alpha object. - print = function() { - cat("trans_diff object:\n") - cat(paste("res_diff have", ncol(self$res_diff), "columns: ", paste0(colnames(self$res_diff), collapse = ", "), "\n")) - if(!is.null(self$res_abund)) cat(paste("res_abund have", ncol(self$res_abund), "columns: ", paste0(colnames(self$res_abund), collapse = ", "), "\n")) - invisible(self) } - ), + ), private = list( check_taxa_level_all = function(taxa_level){ if(taxa_level == "all"){ diff --git a/R/trans_env.R b/R/trans_env.R index 3cb4936..c54f0c0 100644 --- a/R/trans_env.R +++ b/R/trans_env.R @@ -1468,6 +1468,7 @@ trans_env <- R6Class(classname = "trans_env", }else{ cat("No environmental variable table stored in the object.\n") } + invisible(self) } ), private = list( diff --git a/R/trans_func.R b/R/trans_func.R index ab2758f..50eeecf 100644 --- a/R/trans_func.R +++ b/R/trans_func.R @@ -835,24 +835,6 @@ trans_func <- R6Class(classname = "trans_func", self$res_tax4fun2_rFRI <- rel_functional_redundancy_final message('Relative functional redundancy is stored in object$res_tax4fun2_rFRI') invisible(self) - }, - #' @description - #' Print the trans_func object. - print = function(){ - cat("trans_func object:\n") - cat(paste("Functional analysis for", self$for_what, ".\n")) - if(!is.null(self$sample_table)){ - cat("sample_table is available.\n") - } - if(!is.null(self$otu_table)){ - cat("otu_table is available.\n") - } - if(!is.null(self$tax_table)){ - cat("tax_table is available.\n") - } - if(!is.null(self$rep_fasta)){ - cat("rep_fasta is available.\n") - } } ), active = list( diff --git a/R/trans_network.R b/R/trans_network.R index e15c883..a99ab53 100644 --- a/R/trans_network.R +++ b/R/trans_network.R @@ -1251,7 +1251,7 @@ trans_network <- R6Class(classname = "trans_network", } invisible(self) } - ), + ), private = list( check_filter_number = function(input, param = "filter_thres"){ if(nrow(input) == 0){ diff --git a/R/trans_venn.R b/R/trans_venn.R index 90795da..4106301 100644 --- a/R/trans_venn.R +++ b/R/trans_venn.R @@ -542,8 +542,9 @@ trans_venn <- R6Class(classname = "trans_venn", #' Print the trans_venn object. print = function() { print(self$data_summary) + invisible(self) } - ), + ), private = list( # modified from vennSets function in systemPipeR package vennSets = function(setmatrix, allcombl, index, setunion){ diff --git a/man/trans_diff.Rd b/man/trans_diff.Rd index 79591a9..42cbd97 100644 --- a/man/trans_diff.Rd +++ b/man/trans_diff.Rd @@ -68,7 +68,6 @@ t1$plot_diff_cladogram(use_taxa_num = 100, use_feature_num = 30, select_show_lab \item \href{#method-trans_diff-plot_diff_abund}{\code{trans_diff$plot_diff_abund()}} \item \href{#method-trans_diff-plot_diff_bar}{\code{trans_diff$plot_diff_bar()}} \item \href{#method-trans_diff-plot_diff_cladogram}{\code{trans_diff$plot_diff_cladogram()}} -\item \href{#method-trans_diff-print}{\code{trans_diff$print()}} \item \href{#method-trans_diff-clone}{\code{trans_diff$clone()}} } } @@ -563,16 +562,6 @@ t1$plot_diff_cladogram(use_taxa_num = 100, use_feature_num = 30, select_show_lab } -} -\if{html}{\out{