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

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

## ----include=FALSE------------------------------------------------------------
path <- system.file("extdata", "carelink_example.csv", package = "aidR")

## ----comment = "", echo = FALSE-----------------------------------------------
writeLines(readLines(path, n = 10))

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

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

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

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

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

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

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

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

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

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

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

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

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

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