## ----include = FALSE, echo = FALSE, results='hide'----------------------------
if(identical(Sys.getenv("IEEGIO_PKGDOWN", unset = ""), "")) {
  knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>",
    eval = FALSE
  )
} else {
  knitr::opts_chunk$set(
    collapse = TRUE,
    comment = "#>"
  )
  cache_dir <- tools::R_user_dir("ieegio", "cache")
  dir.create(cache_dir, showWarnings = FALSE, recursive = TRUE)
  cache_dir <- normalizePath(cache_dir, mustWork = TRUE)
  options("ieegio.extract_path", cache_dir)
}

## ----sample-------------------------------------------------------------------
#  library(ieegio)
#  edf_path <- ieegio_sample_data("edfPlusD.edf")

## ----read_edf-----------------------------------------------------------------
#  edf <- read_edf(edf_path, verbose = FALSE)
#  print(edf)

## ----edf_methods--------------------------------------------------------------
#  header <- edf$get_header()
#  str(header)
#  
#  chan_tbl <- edf$get_channel_table()
#  print(chan_tbl, nrows = 2, topn = 2)
#  
#  annot <- edf$get_annotations()
#  annot

## ----get_channel--------------------------------------------------------------
#  # get Channel 1
#  channel <- edf$get_channel(1)
#  channel

## ----plot_channel-------------------------------------------------------------
#  plot(
#    x = channel$time, y = channel$value,
#    xlab = "Time", ylab = channel$info$Unit,
#    main = channel$info$Label,
#    type = "p", pch = ".", col = "green", lwd = 2
#  )