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

## ----import-------------------------------------------------------------------
library(carwatch)

fixture <- system.file("extdata", "parity", "v1.0.0", package = "carwatch")
participant_dirs <- c(VP01 = file.path(fixture, "raw", "VP01"))

imported <- read_raw_logs_from_participant_dirs(
  participant_dirs,
  create_report = TRUE
)
raw_logs <- imported$raw_logs
head(imported$source_audit)

## ----first-pass---------------------------------------------------------------
first_pass <- convert_raw_logs(
  raw_logs,
  errors = "warn",
  create_report = TRUE
)
first_pass$report$issues

## ----second-pass, eval = FALSE------------------------------------------------
# write_conversion_report(first_pass$report, "conversion-issues.csv")
# decisions <- read_conversion_report("conversion-issues.csv")
# 
# study_results <- convert_raw_logs(
#   raw_logs,
#   issue_decisions = decisions,
#   errors = "raise"
# )

## ----results------------------------------------------------------------------
study_results <- first_pass$results
as_study_days(study_results)
head(as_sample_events(study_results))
summarize_compliance(study_results)

## ----roundtrip----------------------------------------------------------------
results_file <- tempfile(fileext = ".csv")
write_study_results(study_results, results_file)
restored <- read_study_results(results_file)
restored