data-raw/add_data.R

In tjmahr/littlelisteners: Helper Functions for Hand-coded Eyetracking Data

# trials <- lookr::Session("../lookr/tests/testthat/data/RWL_WFFArea_Long/001P00XS1/")
# lookr::AddAOIData(trials) %>%
#   lookr::MeltLooks(other_attrs = "TargetOnset") %>%
#   as_tibble() %>%
#   select(-Subject, -Task, -Condition, -WordGroup, -DateTime, -TargetEnd) %>%
#   rename(Subject = Subj) %>%
#   select(-Basename) %>%
#   readr::write_csv("data-raw/four-image.csv")

four_image_data <- readr::read_csv("./data-raw/four-image.csv")
devtools::use_data(four_image_data, overwrite = TRUE)