goettingen and chicago update

mahowak · Oct 19, 2019 · 9e5c8ff · 9e5c8ff
1 parent 8591b29
commit 9e5c8ff
Show file tree

Hide file tree

Showing 9 changed files with 587,131 additions and 587,203 deletions.
diff --git a/pilot_data/babylab_uchicago/import_scripts/import.R b/pilot_data/babylab_uchicago/import_scripts/import.R
@@ -1,11 +1,13 @@
 library(peekds)
 library(readxl)
 library(tidyverse)
+library(here)
 
-source("../../../metadata/pod.R")
+lab_dir = "pilot_data/babylab_uchicago"
+source(here("metadata/pod.R"))
 
-d <- read_csv("../raw_data/uchicago_babylab_rawdata.csv") # TODO: handle parse failures?
-p <- readxl::read_xlsx("../raw_data/uchicago_babylab_participantsheet.xlsx")
+d <- read_csv(here(lab_dir, "raw_data/uchicago_babylab_rawdata.csv"))
+p <- readxl::read_xlsx(here(lab_dir, "raw_data/uchicago_babylab_participantsheet.xlsx"))
 
 # datasets
 # dataset_id, monitor_size_x, monitor_size_y, sample_rate, tracker, lab_dataset_id
@@ -18,7 +20,7 @@ datasets <- tibble(dataset_id = 0,
 
 peekds::validate_table(df_table = datasets, 
                        table_type = "datasets")
-write_csv(datasets, "../processed_data/datasets.csv")
+write_csv(datasets, here(lab_dir, "processed_data/datasets.csv"))
 
 # subjects
 # subject_id, age, sex, lab_subject_id
@@ -33,12 +35,12 @@ subjects <- p %>%
 
 peekds::validate_table(df_table = subjects, 
                        table_type = "subjects")
-write_csv(subjects, "../processed_data/subjects.csv")
+write_csv(subjects, here(lab_dir, "processed_data/subjects.csv"))
 
 # aoi_regions
 # aoi_region_id, l_x_max, l_x_min, l_y_max, l_y_min, r_x_max, r_x_min, r_y_max, 
 # r_y_min
-source("../../../metadata/generate_AOIs.R")
+source(here("metadata/generate_AOIs.R"))
 aoi_regions = generate_aoi_regions(screen_width = datasets$monitor_size_x, 
                                    screen_height = datasets$monitor_size_y,
                                    video_width = 1280, # from data
@@ -47,7 +49,7 @@ aoi_regions = generate_aoi_regions(screen_width = datasets$monitor_size_x,
 
 peekds::validate_table(df_table = aoi_regions, 
                        table_type = "aoi_regions")
-write_csv(aoi_regions, "../processed_data/aoi_regions.csv")
+write_csv(aoi_regions, here(lab_dir, "processed_data/aoi_regions.csv"))
 
 # xy_data
 # xy_data_id, subject_id, trial_id, x, y, t
@@ -84,7 +86,7 @@ trials <- filter(d, grepl("FAM", d$MediaName),
 # TODO: this fails because it is looking for aoi_region and not aoi_region_id
 peekds::validate_table(df_table = trials, 
                        table_type = "trials")
-write_csv(trials, "../processed_data/trials.csv")
+write_csv(trials, here(lab_dir, "processed_data/trials.csv"))
 
 # from https://www.tobiipro.com/siteassets/tobii-pro/user-manuals/tobii-pro-studio-user-manual.pdf
 # we want ADCSpx coordinates - those are display coordinates
@@ -104,12 +106,13 @@ xy_data <- tibble(lab_subject_id = d$ParticipantName,
 
 peekds::validate_table(df_table = xy_data, 
                        table_type = "xy_data")
-write_csv(xy_data, "../processed_data/xy_data.csv")
+write_csv(xy_data, here(lab_dir, "processed_data/xy_data.csv"))
 
 # aoi_data
 # aoi_data_id, aoi, subject, t, trial
-aoi_data <- generate_aoi("../processed_data/")
+aoi_data <- generate_aoi(here(lab_dir, "processed_data/"))
 
 peekds::validate_table(df_table = aoi_data, 
                        table_type = "aoi_data")
-write_csv(aoi_data, "../processed_data/aoi_data.csv")
+write_csv(aoi_data, here(lab_dir, "processed_data/aoi_data.csv"))
+