R/ExposomeSet-individualNames.R

# setMethod(
#   f = "individualNames",
#   signature = "ExposomeSet",
#   definition = function(object) {
#     sampleNames(object)
#   }
# )
#
# setReplaceMethod(
#     f = "individualNames",
#     signature = "ExposomeSet",
#     definition = function(object, value) {
#         sampleNames(object) <- value
#         # colnames(assayData(object)[["exp"]]) <- value
#         # rownames(pData(object)) <- value
#         # pData(object)$id <- value
#         # prd <- protocolData(object)
#         # if (nrow(prd) == 0) {
#         #     prd <- pd[,integer(0)]
#         # } else {
#         #     individualNames(prd) <- value
#         # }
#         # object@protocolData <- prd
#         # ## unsafeSetSlot(object, "assayData", ad) ## bastards
#         # object
#         object
#     }
# )

Try the rexposome package in your browser

Any scripts or data that you put into this service are public.

rexposome documentation built on March 13, 2021, 2:01 a.m.