## ----setup, include = FALSE-----------------------------------------------
source(system.file("extdata", "vignettes", "helpers.R", package = "ricu"))

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

library(ricu)

## ----assign-src, echo = FALSE---------------------------------------------
src  <- "mimic_demo"

## ----assign-demo, echo = FALSE--------------------------------------------
demo <- c(src, "eicu_demo")

## ----demo-miss, echo = FALSE, eval = !srcs_avail(demo), results = "asis"----
# demo_missing_msg(demo, "start.html")
# knitr::opts_chunk$set(eval = FALSE)

## ----eval = FALSE---------------------------------------------------------
# install.packages("ricu")

## ----eval = FALSE---------------------------------------------------------
# remotes::install_github("eth-mds/ricu")

## ----echo = FALSE, eval = TRUE, results = "asis"--------------------------
cat(
  "```r\n",
  "install.packages(\n",
  "  c(", paste0("\"", sub("_", ".", demo), "\"", collapse = ", "), "),\n",
  "  repos = \"https://eth-mds.github.io/physionet-demo\"\n",
  ")\n",
  "```\n",
  sep = ""
)

## ----load-ts--------------------------------------------------------------
src  <- "mimic_demo"
demo <- c(src, "eicu_demo")

head(explain_dictionary(src = demo))
load_concepts("alb", src, verbose = FALSE)

## ----load-id--------------------------------------------------------------
(dat <- load_concepts("height", src, verbose = FALSE))
head(tmp <- as.data.frame(dat, by_ref = TRUE))
identical(dat, tmp)

## ----load-mult------------------------------------------------------------
load_concepts("weight", demo, verbose = FALSE)

## ----create-concept, eval = srcs_avail("mimic_demo")----------------------
ldh <- concept("ldh",
  item("mimic_demo", "labevents", "itemid", 50954),
  description = "Lactate dehydrogenase",
  unit = "IU/L"
)
load_concepts(ldh, verbose = FALSE)

## ----eval = FALSE---------------------------------------------------------
# load_concepts("ldh", "mimic_demo")