johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 10:47:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix some package issues

Browse source
This commit is contained in:
Elias Projahn 2021-11-06 13:22:57 +01:00
parent 28f9834984
commit 6d9511fa2e
6 changed files with 41 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

15
R/preset.R
View file

@ -43,24 +43,27 @@ preset <- function(methods = c(
#' S3 method to print a preset object.
#'
#' @param x The preset to print.
#' @param ... Other parameters.
#'
#' @seealso [preset()]
#'
#' @export
print.geposan_preset <- function(preset, ...) {
print.geposan_preset <- function(x, ...) {
cat("geposan preset:")
cat("\n Included methods: ")
cat(preset$method_ids, sep = ", ")
cat(x$method_ids, sep = ", ")
cat(sprintf(
"\n Input data: %i species, %i genes",
length(preset$species_ids),
length(preset$gene_ids)
length(x$species_ids),
length(x$gene_ids)
))
cat(sprintf(
"\n Comparison data: %i reference genes\n",
length(preset$reference_gene_ids)
length(x$reference_gene_ids)
))
invisible(preset)
invisible(x)
}