## ----setup, include = FALSE----------------------------------------------
az_ok <- AnVILAz::has_avworkspace(strict = TRUE, platform = AnVILAz::azure())
knitr::opts_chunk$set(
    collapse = TRUE,
## Related to https://stat.ethz.ch/pipermail/bioc-devel/2020-April/016656.html
    crop = NULL,
    eval = az_ok
)
options(width = 75)

## ----install, eval = FALSE-----------------------------------------------
# if (!requireNamespace("BiocManager", quietly = TRUE))
#     install.packages("BiocManager", repos = "https://cran.r-project.org")
# BiocManager::install("Bioconductor/AnVILAz")

## ----library, message = FALSE, eval = TRUE, cache = FALSE----------------
library(AnVILAz)

## ----eval=az_ok----------------------------------------------------------
# avlist()

## ----eval=az_ok----------------------------------------------------------
# data("mtcars", package = "datasets")
# test <- head(mtcars)
# save(test, file = "mydata.Rda")

## ----eval=az_ok----------------------------------------------------------
# avcopy("mydata.Rda", "analyses/")

## ----eval=az_ok----------------------------------------------------------
# avcopy("jupyter.log", "analyses/")

## ----eval=az_ok----------------------------------------------------------
# avremove("analyses/mydata.Rda")

## ----eval=az_ok----------------------------------------------------------
# avcopy("analyses/jupyter.log", "./test/")

## ----eval=az_ok----------------------------------------------------------
# avbackup("./test/", "analyses/")

## ----eval=az_ok----------------------------------------------------------
# avrestore("analyses/test")

## ----eval=az_ok----------------------------------------------------------
# avrestore("analyses/test", "test")

## ----eval=az_ok----------------------------------------------------------
# library(dplyr)
# mtcars_tbl <-
#     mtcars |>
#     as_tibble(rownames = "model_id") |>
#     mutate(model_id = gsub(" ", "-", model_id))

## ----eval=az_ok----------------------------------------------------------
# mtcars_tbl |> avtable_import(table = "testData", primaryKey = "model_id")

## ----eval=az_ok----------------------------------------------------------
# model_data <- avtable(table = "testData")
# head(model_data)

## ----eval=az_ok----------------------------------------------------------
# avtable_delete_values(table = "testData", values = "AMC-Javelin")

## ----eval=az_ok----------------------------------------------------------
# avtable_delete(table = "testData")

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