---
title: "Introduction to hybridEHR"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Introduction to hybridEHR}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

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

library(hybridEHR)

ehr <- generate_hybrid_ehr_dataset(
n_patients = 20,
seed = 123,
verbose = FALSE
)

names(ehr$tables)


export_dir <- tempdir()

export_hybrid_ehr_dataset(
dataset = ehr,
output_dir = export_dir,
verbose = FALSE
)

list.files(export_dir)