aboutsummaryrefslogtreecommitdiff
path: root/R/mkinds.R
blob: a66adb14818158def57477329b4eb51a7038b216 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
#' A dataset class for mkin
#' 
#' A dataset class for mkin
#' 
#' @name mkinds
#' @docType class
#' @format An \code{\link{R6Class}} generator object.
#' @section Fields:
#' 
#' \describe{ \item{list("title")}{A full title for the dataset}
#' 
#' \item{list("sampling")}{times The sampling times}
#' 
#' \item{list("time_unit")}{The time unit}
#' 
#' \item{list("observed")}{Names of the observed compounds}
#' 
#' \item{list("unit")}{The unit of the observations}
#' 
#' \item{list("replicates")}{The number of replicates}
#' 
#' \item{list("data")}{A dataframe with at least the columns name, time and
#' value in order to be compatible with mkinfit} }
#' @importFrom R6 R6Class
#' @keywords datasets
#' @examples
#' 
#' mds <- mkinds$new("FOCUS A", FOCUS_2006_A)
#' 
#' @export
mkinds <- R6Class("mkinds",
  public = list(
    title = NULL,
    sampling_times = NULL,
    time_unit = NULL,
    observed = NULL,
    unit = NULL,
    replicates = NULL,
    data = NULL,

    initialize = function(title = "", data, time_unit = NA, unit = NA) {

      self$title <- title
      self$sampling_times <- sort(unique(data$time))
      self$time_unit <- time_unit
      self$observed <- unique(data$name)
      self$unit <- unit
      self$replicates <- max(by(data, list(data$name, data$time), nrow))
      if (is.null(data$override)) data$override <- NA
      if (is.null(data$err)) data$err <- 1
      self$data <- data

    }
  )
)

#' Print mkinds objects
#' 
#' Print mkinds objects.
#' 
#' @param x An \code{\link{mkinds}} object.
#' @param \dots Not used.
#' @export
print.mkinds <- function(x, ...) {
  cat("<mkinds> with $title: ",  x$title, "\n")
  cat("Observed compounds $observed: ", paste(x$observed, collapse = ", "), "\n")
  cat("Sampling times $sampling_times: ", paste(x$sampling_times, collapse = ", "), "\n")
  cat("With a maximum of ", x$replicates, " replicates\n")
  if (!is.na(x$time_unit)) cat("Time unit: ", x$time_unit, "\n")
  if (!is.na(x$unit)) cat("Observation unit: ", x$unit, "\n")
}

Contact - Imprint