robimetabar_store.R 1.27 KB
Newer Older
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
#' @import dplyr
#' @import tidyr
#' @import tibble
#'
#' @include robimetabar_filter.R
#' @include robisample.R
#' @include robimotu.R
#'
NULL

#' @rdname motus
#' @export
store_into_samples.robisample <- function(value, data) {
  robiassert_arg(is_robimetabar(data),
                 "data",
                 "the data parameter must belong the class robimetabar, not {dclass}",
                 dclass = class(data)[1])

  data$samples <- value

  invisible(data)
}

#' @rdname motus
#' @export
store_into_sample.data.frame <- function(value, data) {
  store_into_sample.robimotu(robisample(value),data)
}

#' @rdname motus
#' @export
store_into_motus.robimotu <- function(value, data) {
  robiassert_arg(is_robimetabar(data),
                 "data",
                 "the data parameter must belong the class robimetabar, not {dclass}",
                 dclass = class(data)[1])

  data$motus <- value

  invisible(data)
}

#' @export
store_into.robimotu <- function(value, data) {
  invisible(store_into_motus.robimotu(value, data))
}

#' @export
store_into.robisample <- function(value, data) {
  invisible(store_into_samples.robisample(value, data))
}


#' @rdname motus
#' @export
store_into_motus.data.frame <- function(value, data) {
  store_into_motus.robimotu(robimotu(value),data)
}