## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
# build_rmd("vignettes/big-five-example.Rmd")

library(rextor)

## ----read-in------------------------------------------------------------------
raw <- read_WEXTOR(path_to_file("BiFiX_data_raw.csv"),
                    keep_validation = FALSE)


## -----------------------------------------------------------------------------
data <- removepref(raw) # namepref(raw, ".wx.", "v_")

## -----------------------------------------------------------------------------
data2 <- serious_check(data)

## -----------------------------------------------------------------------------
# Add random numbers to act as simulated IP addresses
data2$ip <- sample(1:1000, nrow(data2), replace = TRUE)

# Perform separate checks
# data3 <- sess_length_check(data2, 
#                      min_pages = 6)
# data3 <- ip_check(data3)

# Perform overall plausibility check
data3 <- plausicheck(data2, 
                     min_pages = 6,
                     check_sess_length = TRUE,
                     check_ip = TRUE)

## -----------------------------------------------------------------------------
final_data <- raw |> 
  removepref() |> 
  serious_check() |> 
  plausicheck(min_pages = 6, check_sess_length = TRUE, check_ip = FALSE)