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

## ----setup, message = FALSE---------------------------------------------------
library(aidR)
library(readxl)

## ----include=FALSE------------------------------------------------------------
path <- system.file("extdata", "tidepool_example.xlsx", package = "aidR")
file <- read_excel(path, sheet = "CGM", guess_max = 100000)

## ----comment = "", echo = FALSE-----------------------------------------------
print(file, n = 10)

## -----------------------------------------------------------------------------
data <- parse_data(id = "1", paths = path, clean = FALSE)

## ----comment=""---------------------------------------------------------------
head(data$cgm)

## ----comment=""---------------------------------------------------------------
head(data$basal)

## ----comment=""---------------------------------------------------------------
head(data$bolus)

## ----comment=""---------------------------------------------------------------
head(data$SMBG)

## ----comment=""---------------------------------------------------------------
head(data$bolus_calculator)

## ----comment=""---------------------------------------------------------------
head(data$device_event)

## ----comment=""---------------------------------------------------------------
head(data$basal_schedules)

## ----comment=""---------------------------------------------------------------
head(data$upload)