admin/create_new_scales.R

In gorkang/jsPsychHelpeR: Standardize and automatize data preparation and analysis of jsPsych experiments created with jsPsychMaker

# TODO --------------------------------------------------------------------

# GHDQ12, ITC, PWb, SDG
# IDQ y SDG tienen items solapados

# Packages ----------------------------------------------------------------

source("_targets_packages.R")
invisible(lapply(list.files("./R", full.names = TRUE, pattern = ".R$"), source))

# Tasks ready to create prepare_*.R script ----------------------------------

DF_missing = check_missing_prepare_TASK(check_new_task_tabs = TRUE)
DF_ready = DF_missing$DF_FINAL %>% dplyr::filter(!is.na(missing_script) & is.na(missing_gdoc))
DF_ready$task
# get_dimensions_googledoc(short_name_text = DF_ready$task[1], google_username = "gorkang@gmail.com", google_sheet = "NEW")



# Create NEW SCALE --------------------------------------------------------

# Check info in Google Docs
get_dimensions_googledoc(short_name_text = "NAME_NEW_TASK", google_sheet = "NEW")

# Create prepare_TASK file
create_new_task(short_name_task = "NAME_NEW_TASK", old_names = FALSE, overwrite = FALSE)


# Helper functions ---------------------------------------------------------

create_vector_items(c(4, 5, 8, 9, 13, 15, 20, 22, 25, 26, 27, 29, 30, 33, 34, 36), collapse_string = "|")