## ----style, echo = FALSE, results = 'asis', message=FALSE---------------------
BiocStyle::markdown()

## ----load-lib, message = FALSE------------------------------------------------
library(ExperimentHub)
eh <- ExperimentHub()

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs"))
qr

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
#Show metadata (e.g. ah_id and title)
qr$ah_id
qr$title

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0001"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]
gif_Data <- qr[[2]]

#Show animation
library(magick)
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0002"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]
gif_Data <- qr[[2]]

#Show animation
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0003"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0004"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0005"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0006"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0007"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0008"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0009"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0010"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "EM_id0011"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "LM_id0001"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "LM_id0002"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----echo=TRUE, eval=TRUE-----------------------------------------------------
qr <- query(eh, c("BioImageDbs", "LM_id0003"))

##Show metadata
qr

##Import data
#Img_Data <- qr[[1]]

#Show animation
gif_Data <- qr[[2]]
magick::image_read(gif_Data)

## ----sessionInfo, echo=FALSE--------------------------------------------------
sessionInfo()