# only 1 file in directory
dir(system.file("extdata", package = "SomaDataIO"))
files <- system.file("extdata", package = "SomaDataIO") |>
dir(pattern = "[.]adat$", full.names = TRUE) |> rev()
adats <- loadAdatsAsList(files)
class(adats)
# collapse into 1 ADAT
collapsed <- collapseAdats(adats)
class(collapsed)
# Alternatively use `collapse = TRUE`
# \donttest{
loadAdatsAsList(files, collapse = TRUE)
# }
Run the code above in your browser using DataLab