## ----setup--------------------------------------------------------------------
library(SpaMTPData)
resources <- spaMTPDataResources(version = "latest")
resources[c("resource", "version", "category", "r_data_class", "requires_conversion")]
spaMTPDataVersion()

## ----native-example-----------------------------------------------------------
spe <- spaMTPExampleData()
SummarizedExperiment::assayNames(spe)
SummarizedExperiment::rowData(spe)$mz
SummarizedExperiment::colData(spe)$region
SpatialExperiment::spatialCoords(spe)
SingleCellExperiment::altExpNames(spe)

core <- spe[, spe$region == "core"]
stopifnot(identical(colnames(SingleCellExperiment::altExp(core, "transcriptome")),
  colnames(core)))

## ----published-native, eval=FALSE---------------------------------------------
# striatum <- spaMTPData("mouse_brain_dhb_striatum", version = "1.1.0")
# SummarizedExperiment::assayNames(striatum)
# SpatialExperiment::spatialCoords(striatum)
# SingleCellExperiment::altExpNames(striatum) # SPT

## ----inspect-resource---------------------------------------------------------
striatum_metadata <- spaMTPData(
  "mouse_brain_dhb_striatum",
  metadata = TRUE
)
striatum_metadata[c("resource", "version", "r_data_class", "bytes")]
stopifnot(striatum_metadata$r_data_class == "SpatialExperiment",
  !striatum_metadata$requires_conversion)

## ----inspect-historical-resource----------------------------------------------
historical <- spaMTPData("mouse_brain_dhb_striatum",
  version = "1.0.0", metadata = TRUE)
historical[c("resource", "version", "r_data_class", "requires_conversion")]

## ----explicit-accessor--------------------------------------------------------
spaMTPDataResource(
  "mouse_brain_dhb_striatum",
  metadata = TRUE
)

## ----session-info-------------------------------------------------------------
sessionInfo()