## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  out.width = "100%",
  message = FALSE
)
sample_dir <- tools::R_user_dir("pizzarr")
clean <- !dir.exists(sample_dir)

## -----------------------------------------------------------------------------
library(pizzarr)

store_path <- pizzarr_sample("fixtures/v3/zarr_python_v3.zarr")
root <- zarr_open(store_path)

## -----------------------------------------------------------------------------
root$get_attrs()$to_list()

## -----------------------------------------------------------------------------
a <- root$get_item("int32_1d")
a$get_shape()
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("float64_1d")
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("bool_1d")
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("uint8_1d")
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("float32_1d")
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("int16_2d")
a$get_shape()
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("float64_3d")
a$get_shape()
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("with_fill")
a$as.array()

## -----------------------------------------------------------------------------
a <- root$get_item("ragged_2d")
a$get_shape()
a$as.array()

## -----------------------------------------------------------------------------
g <- root$get_item("var_group")
g$get_attrs()$to_list()

## -----------------------------------------------------------------------------
temp <- g$get_item("temperature")
temp$get_attrs()$to_list()
temp$as.array()

## -----------------------------------------------------------------------------
pres <- g$get_item("pressure")
pres$get_attrs()$to_list()
pres$as.array()

## ----include=FALSE------------------------------------------------------------
if(clean) unlink(sample_dir, recursive = TRUE)