In syntheso/magmaR: musicassessr; develop music psychology tests and assess musicological/psychological data

library(tidyverse)
library(DBI)

load_all()

pbet_hmtm_2024_item_bank <- WJD::WJD_narrowed %>%
  tibble::as_tibble() %>%
  dplyr::filter(freq > 1) %>%
  dplyr::rename(
    arrhythmic_difficulty = SAA_arrhythmic_difficulty,
    rhythmic_difficulty = SAA_rhythmic_difficulty,
    arrhythmic_difficulty_percentile = SAA_arrhythmic_difficulty_percentile,
    rhythmic_difficulty_percentile = SAA_rhythmic_difficulty_percentile
  ) %>% 
  itembankr::set_item_bank_class()


# use_data(pbet_hmtm_2024_item_bank, overwrite = TRUE)

# db_con <- musicassessrdb::musicassessr_con()
db_con <- musicassessrdb::musicassessr_con(db_name = "melody_prod")

dbWriteTable(db_con, 
             name = 'item_bank_WJD_narrowed_pbet_2025', 
             value = pbet_hmtm_2024_item_bank,
             row.names = FALSE, 
             append = FALSE, 
             overwrite = TRUE)


musicassessrdb::db_disconnect(db_con)

syntheso/magmaR documentation built on June 1, 2025, 7:59 p.m.