Get all sample ids (viallabel) used in the study

[biodavidjm]

I started this code:

# Create an empty list to store column names
assay_sampleids <- list()

# Iterate over each object and save its column names, excluding specific values
for (object_name in norm_objects) {
  assay_sampleids[[object_name]] <- 
    setdiff(
      colnames(
        get(object_name,
            envir = asNamespace("MotrpacRatTraining6moData"))),
      c("feature", "feature_ID", "tissue", "assay"))
}

# print(assay_sampleids)

ToDo: add the same for metabolomics and immunoassays