aboutsummaryrefslogtreecommitdiff
path: root/R/mkinds.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinds.R')
-rw-r--r--R/mkinds.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinds.R b/R/mkinds.R
index 0e970694..df66ab0f 100644
--- a/R/mkinds.R
+++ b/R/mkinds.R
@@ -140,6 +140,7 @@ mkindsg <- R6Class("mkindsg",
self$f_time_norm <- f_time_norm
if (!missing(meta)) {
+ rownames(meta) <- lapply(ds, function(x) x$title)
self$meta <- meta
}
}
@@ -157,7 +158,7 @@ mkindsg <- R6Class("mkindsg",
print.mkindsg <- function(x, data = FALSE, verbose = data, ...) {
cat("<mkindsg> holding", length(x$ds), "mkinds objects\n")
cat("Title $title: ", x$title, "\n")
- cat("Occurrene of observed compounds $observed_n:\n")
+ cat("Occurrence of observed compounds $observed_n:\n")
print(x$observed_n)
if (any(x$f_time_norm != 1)) {
cat("Time normalisation factors $f_time_norm:\n")

Contact - Imprint