R/present_stimuli_WJD.R

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

present_stimuli_audio_WJD <- function(pattern, ...) {

  # pattern should be a relative pattern
  search_res <- DTL_similarity_search_results(search_patterns = pattern$melody, database_names = "wjazzd")
  search_res$url <- search_res %>% dplyr::rowwise() %>% get_wjd_mp3_url()
  found_url <- FALSE
  while(!found_url) {
    random_sample <- sample(1:nrow(search_res), 1)
    url <- search_res %>% dplyr::slice(random_sample) %>% dplyr::pull(url)
    found_url <- urlFileExist(url)$exists
  }
  url
}

# asdw <- WJD::WJD("ngram") %>% dplyr::slice(100)

# d <- present_stimuli_audio_WJD(asdw)

#d2 <- d %>% dplyr::filter(url_exists == TRUE)
# %>% dplyr::ungroup()


# p <- WJD::WJD("phrases")
#
# d2 <- WJD::WJD("phrases")[998, ]
#
# da2 <- DTL_similarity_search_results(search_patterns = d2$orig_abs_melody, database_names = "wjazzd", transformation = "pitch")
#
# d3 <- WJD::WJD("phrases")[998, ]
# da3 <- DTL_similarity_search_results(search_patterns = "61,62", transformation = "pitch")

# da4 <- da3 %>% dplyr::filter(database_name == "omnibook")
# dd <- da4[1, ]
# dd2 <- get_wjd_mp3_url(dd)
#
# da5 <- da3 %>% dplyr::filter(database_name == "wjazzd")
# da6 <- da5[1, ]
# dd3 <- get_wjd_mp3_url(da6)


#present_stimuli_audio_WJD(t)