## ----setup, include = FALSE---------------------------------------------------
library(httptest2)
library(rirods)
start_vignette("demo")

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval=is_irods_demo_running()
)

## ----eval=FALSE---------------------------------------------------------------
#  library(rirods)
#  use_irods_demo()

## ----echo=FALSE, comment=""---------------------------------------------------
#  # set user config directory to temporary location
#  withr::local_envvar(
#    R_USER_CONFIG_DIR = tempdir()
#  )
#  substitute(create_irods(x), list(x = rirods:::.irods_host))

## ----echo=FALSE---------------------------------------------------------------
#  eval(substitute(create_irods(x), list(x = rirods:::.irods_host)))

## -----------------------------------------------------------------------------
#  iauth("rods", "rods")
#  ils()

## ----include=FALSE------------------------------------------------------------
#  end_vignette()
#  unlink(rirods:::path_to_irods_conf())