## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(message = FALSE, warning = FALSE, error = FALSE)

## -----------------------------------------------------------------------------
library(ExperimentHub)
eh <- ExperimentHub()
(q <- query(eh, "TENxVisium"))

## -----------------------------------------------------------------------------
library(TENxVisiumData)
spe <- HumanHeart()

## -----------------------------------------------------------------------------
library(ExperimentHub)
eh <- ExperimentHub()        # initialize hub instance
q <- query(eh, "TENxVisium") # retrieve 'TENxVisiumData' records
id <- q$ah_id[1]             # specify dataset ID to load
spe <- eh[[id]]              # load specified dataset

## -----------------------------------------------------------------------------
spe

## -----------------------------------------------------------------------------
head(spatialCoords(spe))

## -----------------------------------------------------------------------------
head(spatialData(spe))

## -----------------------------------------------------------------------------
imgData(spe)

## -----------------------------------------------------------------------------
spe <- MouseBrainSagittalAnterior()
table(spe$sample_id)

## -----------------------------------------------------------------------------
spe <- HumanOvarianCancer()
altExpNames(spe)

## -----------------------------------------------------------------------------
sessionInfo()