## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

## ----libs---------------------------------------------------------------------
library(puremoe)
library(dplyr)
library(DT)

## ----thesaurus----------------------------------------------------------------
thesaurus <- puremoe::data_mesh_thesaurus()

## ----thesaurus-table----------------------------------------------------------
thesaurus |>
  head(20) |>
  DT::datatable(rownames = FALSE, options = list(scrollX = TRUE))

## ----trees--------------------------------------------------------------------
trees <- puremoe::data_mesh_trees()

## ----trees-table--------------------------------------------------------------
trees |>
  head(20) |>
  DT::datatable(rownames = FALSE, options = list(scrollX = TRUE))

## ----frequencies--------------------------------------------------------------
puremoe::data_mesh_frequencies |>
  head(20) |>
  DT::datatable(rownames = FALSE, options = list(scrollX = TRUE))

## ----persistent, eval=FALSE---------------------------------------------------
# thesaurus <- puremoe::data_mesh_thesaurus(use_persistent_storage = TRUE)
# trees     <- puremoe::data_mesh_trees(use_persistent_storage = TRUE)