R/showcase.R
In syntheso/musicassessr: musicassessr; develop music psychology tests and assess musicological/psychological data
Defines functions
showcase
showcase <- function() {
timeline <- psychTestR::join(psychTestR::new_timeline(psychTestR::join(
psychTestR::one_button_page(
shiny::tags$div(
shiny::tags$h2("musicassessr Test Showcase"))
),
#setup_pages(input = "microphone", SNR_test = FALSE, get_instrument_range = FALSE),
psychTestR::one_button_page(shiny::tags$h2("Musical Page Types")),
# psychTestR::one_button_page(shiny::tags$div(
# shiny::tags$h3("Music Data Collection")
# )),
#
#
#
# select_midi_device_page(),
# record_midi_page(),
#
# # midi notes (auditory)
# record_audio_page(),
psychTestR::one_button_page(shiny::tags$div(
shiny::tags$h3("Present Musical Stimuli")
)),
psychTestR::one_button_page(body = shiny::tags$div(present_stimuli(stimuli = c(60, 61, 62, 63),
stimuli_type = "midi_notes",
display_modality = "auditory",
page_title = "Simple Present MIDI notes"),
shiny::tags$code(musicassessr_tl_code[[4]])
)),
# rhythms (need percussion sound)
musicassessr::present_stimuli(stimuli = list('8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n'),
stimuli_type = "rhythms",
page_title = "Present Rhythms",
display_modality = "auditory",
page_type = "one_button_page",
page_text = shiny::tags$code(musicassessr_tl_code[[5]])),
# sci notation with rhythms
musicassessr::present_stimuli(stimuli = list(scientific_music_notation = list("Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "A4", "Bb4", "Bb4", "A4", "G4", "F4", "Eb4", "F4", "Bb4", "Ab4", "G4", "F4", "Eb4", "F4", "Eb4", "G4", "Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "D5", "Bb4", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "Eb5", "F5"),
rhythms = list('8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n', list('2n', '4n'), '8n', '8n', '8n', '8n', '8n', list('4n', '8n'), '8n', '8n', '8n', '8n', '8n', '4n', '4n', list('2n', '4n', '8n'), '8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n', list('2n', '4n'), '8n', '8n', '8n', '8n', '8n', list('4n', '8n'), '8n', '8n', '8n', '8n', '8n', '4n', '4n', list('2n', '4n', '8n'))
),
stimuli_type = "scientific_music_notation",
display_modality = "auditory",
page_title = "Present Notes (Sci Notation) + Rhythms Aurally",
page_type = "one_button_page",
page_text = shiny::tags$code(musicassessr_tl_code[[6]])),
# midi notes (visual)
musicassessr::present_stimuli(stimuli = c(60, 62, 64, 65),
stimuli_type = "midi_notes",
display_modality = "visual",
asChord = FALSE,
page_title = "Present MIDI notes visually",
page_type = "one_button_page"
#ascending = TRUE
),
# midi notes (visual, as chord)
musicassessr::present_stimuli(stimuli = c(60, 62, 64, 65),
stimuli_type = "midi_notes",
display_modality = "visual",
asChord = TRUE,
page_title = "Present MIDI notes visually, as chord",
page_type = "one_button_page"
#ascending = FALSE
),
# midi file (auditory)
musicassessr::present_stimuli(stimuli = 'stimuli/hinematov.mid',
stimuli_type = "midi_file",
display_modality = "auditory",
page_title = "Play Midi File",
page_type = "one_button_page"
),
# sci notation visual
musicassessr::present_stimuli(stimuli = c("C4", "E3", "G5", "B4", "A2", "D3", "E3", "F2"),
stimuli_type = "scientific_music_notation",
display_modality = "visual",
asChord = FALSE,
page_type = "one_button_page",
page_title = "Present Scientific Notation Visually"
),
# pitch classes visual
musicassessr::present_stimuli(stimuli = c("C", "E", "G", "B", "A", "D", "E", "F"),
stimuli_type = "pitch_classes",
display_modality = "visual",
page_type = "one_button_page",
octave = 4,
asChord = FALSE,
page_title = "Present Pitch Classes Visually"
),
# sci notation with accidentals
musicassessr::present_stimuli(stimuli = c("C#4", "Eb4", "G#4", "Bb4", "A#4", "Db4", "E#4", "Gb2"),
stimuli_type = "scientific_music_notation",
display_modality = "visual",
asChord = FALSE,
page_type = "one_button_page",
page_title = "Present Scientific Notation Visually (with accidentals)"
),
# music.xml file file (visual)
musicassessr::present_stimuli(stimuli = 'stimuli/Berkowitz35.musicxml',
stimuli_type = "musicxml_file",
display_modality = "visual",
page_type = "one_button_page",
page_title = "Present .musicxml files visually"
),
psychTestR::one_button_page(shiny::tags$h2("Non-Musical Page Types")),
musicassessr::present_stimuli(stimuli = c("type these words back"),
stimuli_type = "words",
display_modality = "visual",
slide_length = 600,
page_type = "record_key_presses_page",
page_title = "Capture Key Presses"),
# images
musicassessr::present_stimuli(stimuli = c("img/dummy_stimuli/1.jpg",
"img/dummy_stimuli/2.jpg",
"img/dummy_stimuli/3.jpg",
"img/dummy_stimuli/4.jpg"),
stimuli_type = "images",
slide_length = 1000,
page_type = "one_button_page",
page_title = "Display Image Slides"
),
# digits
musicassessr::present_stimuli(stimuli = c("1", "2", "3"),
stimuli_type = "digits",
display_modality = "visual",
slide_length = 1000,
page_type = "one_button_page",
page_title = "Display Digit Slides"
),
# letters
musicassessr::present_stimuli(stimuli = c("A", "B", "C"),
stimuli_type = "letters",
display_modality = "visual",
slide_length = 300,
page_type = "one_button_page",
page_title = "Display Letter Slides"
),
# words
musicassessr::present_stimuli(stimuli = c("Hannover", "Schule", "für", "Musik", "Theater", "und", "Medien"),
stimuli_type = "words",
display_modality = "visual",
slide_length = 500,
page_type = "one_button_page",
page_title = "Display Word Slides"
),
# need to select voice first
select_voice_page(),
# digits (auditory)
musicassessr::present_stimuli(stimuli = c("1", "2", "3"),
stimuli_type = "digits",
display_modality = "auditory",
slide_length = 1000,
page_title = "Auditory Digit Presentation",
page_type = "one_button_page",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
# letters (auditory)
musicassessr::present_stimuli(stimuli = c("A", "B", "C"),
stimuli_type = "letters",
display_modality = "auditory",
slide_length = 300,
page_type = "one_button_page",
page_title = "Auditory Letter Presentation",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
# words (auditory)
musicassessr::present_stimuli(stimuli = c("welcome", "to", "Hannover"),
stimuli_type = "words",
display_modality = "auditory",
slide_length = 100,
page_type = "one_button_page",
page_title = "Auditory Word Presentation",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_type = "one_button_page",
page_title = "Video Page, One Button Page",
page_text = "Here is my video"
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and NAFC",
page_type = "NAFC_page",
choices = c("A", "B", "C"),
label = "test"
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_type = "dropdown_page",
page_title = "Video and dropdown",
label = "test",
choices = c("A", "B", "C")
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and slider",
page_type = "slider_page",
label = "slider page",
min = 1, max = 10, value = 5
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and page input",
page_type = "text_input_page",
label = "text_input_demo"),
psychTestR::final_page("The end")
), dict = musicassessr_dict))
psychTestR::make_test(timeline,
opt = psychTestR::test_options(
title = "musicassessr Test Showcase",
admin_password = "test",
additional_scripts = musicassessr::musicassessr_js(visual_notation = TRUE)
)
)
}
##
musicassessr_tl_code <- list(
'select_midi_device_page()',
'record_midi_page()',
# midi notes (auditory)
'record_audio_page()',
htmltools::HTML('one_button_page(body = tags$div(<br />present_stimuli(stimuli = c(60, 61, 62, 63),<br />
stimuli_type = "midi_notes",<br />
display_modality = "auditory",<br />
page_title = "Simple Present MIDI notes")))'),
#
# # rhythms (need percussion sound)
htmltools::HTML('present_stimuli(stimuli = list("8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n"),<br />
stimuli_type = "rhythms",<br />
page_title = "Present Rhythms",<br />
page_type = "one_button_page")'),
# # sci notation with rhythms
htmltools::HTML('present_stimuli(stimuli = list(scientific_music_notation = list("Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "A4", "Bb4", "Bb4", "A4", "G4", "F4", "Eb4", "F4", "Bb4", "Ab4", "G4", "F4", "Eb4", "F4", "Eb4", "G4", "Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "D5", "Bb4", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "Eb5", "F5"),<br />
rhythms = list("8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n", list("2n", "4n"), "8n", "8n", "8n", "8n", "8n", list("4n", "8n"), "8n", "8n", "8n", "8n", "8n", "4n", "4n", list("2n", "4n", "8n"), "8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n", list("2n", "4n"), "8n", "8n", "8n", "8n", "8n", list("4n", "8n"), "8n", "8n", "8n", "8n", "8n", "4n", "4n", list("2n", "4n", "8n"))),<br />
stimuli_type = "scientific_music_notation",<br />
display_modality = "auditory",<br />
page_title = "Present Notes (Sci Notation) + Rhythms Aurally",<br />
page_type = "one_button_page")')
#
#
# # midi notes (visual)
# present_stimuli(stimuli = c(60, 62, 64, 65),
# stimuli_type = "midi_notes",
# display_modality = "visual",
# asChord = FALSE,
# page_title = "Present MIDI notes visually",
# page_type = "one_button_page"
# #ascending = TRUE
# ),
#
# # midi notes (visual, as chord)
# present_stimuli(stimuli = c(60, 62, 64, 65),
# stimuli_type = "midi_notes",
# display_modality = "visual",
# asChord = TRUE,
# page_title = "Present MIDI notes visually, as chord",
# page_type = "one_button_page"
# #ascending = FALSE
# ),
#
#
#
# # midi file (auditory)
# present_stimuli(stimuli = 'stimuli/hinematov.mid',
# stimuli_type = "midi_file",
# display_modality = "auditory",
# page_title = "Play Midi File",
# page_type = "one_button_page"
# ),
#
# # sci notation visual
# present_stimuli(stimuli = c("C4", "E3", "G5", "B4", "A2", "D3", "E3", "F2"),
# stimuli_type = "scientific_music_notation",
# display_modality = "visual",
# asChord = FALSE,
# page_type = "one_button_page",
# page_title = "Present Scientific Notation Visually"
# ),
#
# # pitch classes visual
# present_stimuli(stimuli = c("C", "E", "G", "B", "A", "D", "E", "F"),
# stimuli_type = "pitch_classes",
# display_modality = "visual",
# page_type = "one_button_page",
# octave = 4,
# asChord = FALSE,
# page_title = "Present Pitch Classes Visually"
# ),
#
# # sci notation with accidentals
# present_stimuli(stimuli = c("C#4", "Eb4", "G#4", "Bb4", "A#4", "Db4", "E#4", "Gb2"),
# stimuli_type = "scientific_music_notation",
# display_modality = "visual",
# asChord = FALSE,
# page_type = "one_button_page",
# page_title = "Present Scientific Notation Visually (with accidentals)"
# ),
#
# # music.xml file file (visual)
# present_stimuli(stimuli = 'stimuli/Berkowitz35.musicxml',
# stimuli_type = "musicxml_file",
# display_modality = "visual",
# page_type = "one_button_page",
# page_title = "Present .musicxml files visually"
# ),
#
# psychTestR::one_button_page(shiny::tags$h2("Non-Musical Page Types")),
#
#
# present_stimuli(stimuli = c("type these words back"),
# stimuli_type = "words",
# display_modality = "visual",
# slide_length = 600,
# page_type = "record_key_presses_page",
# page_title = "Capture Key Presses"),
#
# # images
# present_stimuli(stimuli = c("img/dummy_stimuli/1.jpg",
# "img/dummy_stimuli/2.jpg",
# "img/dummy_stimuli/3.jpg",
# "img/dummy_stimuli/4.jpg"),
# stimuli_type = "images",
# slide_length = 1000,
# page_type = "one_button_page",
# page_title = "Display Image Slides"
# ),
#
#
# # digits
# present_stimuli(stimuli = c("1", "2", "3"),
# stimuli_type = "digits",
# display_modality = "visual",
# slide_length = 1000,
# page_type = "one_button_page",
# page_title = "Display Digit Slides"
# ),
#
#
# # letters
# present_stimuli(stimuli = c("A", "B", "C"),
# stimuli_type = "letters",
# display_modality = "visual",
# slide_length = 300,
# page_type = "one_button_page",
# page_title = "Display Letter Slides"
# ),
#
# # words
# present_stimuli(stimuli = c("Hannover", "Schule", "für", "Musik", "Theater", "und", "Medien"),
# stimuli_type = "words",
# display_modality = "visual",
# slide_length = 500,
# page_type = "one_button_page",
# page_title = "Display Word Slides"
# ),
#
# # need to select voice first
# select_voice_page(),
#
# # digits (auditory)
# present_stimuli(stimuli = c("1", "2", "3"),
# stimuli_type = "digits",
# display_modality = "auditory",
# slide_length = 1000,
# page_title = "Auditory Digit Presentation",
# page_type = "one_button_page",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
#
# # letters (auditory)
# present_stimuli(stimuli = c("A", "B", "C"),
# stimuli_type = "letters",
# display_modality = "auditory",
# slide_length = 300,
# page_type = "one_button_page",
# page_title = "Auditory Letter Presentation",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
# # words (auditory)
# present_stimuli(stimuli = c("welcome", "to", "Hannover"),
# stimuli_type = "words",
# display_modality = "auditory",
# slide_length = 100,
# page_type = "one_button_page",
# page_title = "Auditory Word Presentation",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_type = "one_button_page",
# page_title = "Video Page, One Button Page",
# page_text = "Here is my video"
# ),
#
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and NAFC",
# page_type = "NAFC_page",
# choices = c("A", "B", "C"),
# label = "test"
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_type = "dropdown_page",
# page_title = "Video and dropdown",
# label = "test",
# choices = c("A", "B", "C")
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and slider",
# page_type = "slider_page",
# label = "slider page",
# min = 1, max = 10, value = 5
# ),
#
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and page input",
# page_type = "text_input_page",
# label = "text_input_demo")
)
syntheso/musicassessr documentation built on April 5, 2025, 8:11 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions showcase
showcase <- function() {
timeline <- psychTestR::join(psychTestR::new_timeline(psychTestR::join(
psychTestR::one_button_page(
shiny::tags$div(
shiny::tags$h2("musicassessr Test Showcase"))
),
#setup_pages(input = "microphone", SNR_test = FALSE, get_instrument_range = FALSE),
psychTestR::one_button_page(shiny::tags$h2("Musical Page Types")),
# psychTestR::one_button_page(shiny::tags$div(
# shiny::tags$h3("Music Data Collection")
# )),
#
#
#
# select_midi_device_page(),
# record_midi_page(),
#
# # midi notes (auditory)
# record_audio_page(),
psychTestR::one_button_page(shiny::tags$div(
shiny::tags$h3("Present Musical Stimuli")
)),
psychTestR::one_button_page(body = shiny::tags$div(present_stimuli(stimuli = c(60, 61, 62, 63),
stimuli_type = "midi_notes",
display_modality = "auditory",
page_title = "Simple Present MIDI notes"),
shiny::tags$code(musicassessr_tl_code[[4]])
)),
# rhythms (need percussion sound)
musicassessr::present_stimuli(stimuli = list('8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n'),
stimuli_type = "rhythms",
page_title = "Present Rhythms",
display_modality = "auditory",
page_type = "one_button_page",
page_text = shiny::tags$code(musicassessr_tl_code[[5]])),
# sci notation with rhythms
musicassessr::present_stimuli(stimuli = list(scientific_music_notation = list("Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "A4", "Bb4", "Bb4", "A4", "G4", "F4", "Eb4", "F4", "Bb4", "Ab4", "G4", "F4", "Eb4", "F4", "Eb4", "G4", "Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "D5", "Bb4", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "Eb5", "F5"),
rhythms = list('8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n', list('2n', '4n'), '8n', '8n', '8n', '8n', '8n', list('4n', '8n'), '8n', '8n', '8n', '8n', '8n', '4n', '4n', list('2n', '4n', '8n'), '8n', '8n', list('2n', '4n'), '8n', '4t', '4t', '4t', '4t', '4t', '4t', '8n', list('2n', '4n'), '8n', '8n', '8n', '8n', '8n', list('4n', '8n'), '8n', '8n', '8n', '8n', '8n', '4n', '4n', list('2n', '4n', '8n'))
),
stimuli_type = "scientific_music_notation",
display_modality = "auditory",
page_title = "Present Notes (Sci Notation) + Rhythms Aurally",
page_type = "one_button_page",
page_text = shiny::tags$code(musicassessr_tl_code[[6]])),
# midi notes (visual)
musicassessr::present_stimuli(stimuli = c(60, 62, 64, 65),
stimuli_type = "midi_notes",
display_modality = "visual",
asChord = FALSE,
page_title = "Present MIDI notes visually",
page_type = "one_button_page"
#ascending = TRUE
),
# midi notes (visual, as chord)
musicassessr::present_stimuli(stimuli = c(60, 62, 64, 65),
stimuli_type = "midi_notes",
display_modality = "visual",
asChord = TRUE,
page_title = "Present MIDI notes visually, as chord",
page_type = "one_button_page"
#ascending = FALSE
),
# midi file (auditory)
musicassessr::present_stimuli(stimuli = 'stimuli/hinematov.mid',
stimuli_type = "midi_file",
display_modality = "auditory",
page_title = "Play Midi File",
page_type = "one_button_page"
),
# sci notation visual
musicassessr::present_stimuli(stimuli = c("C4", "E3", "G5", "B4", "A2", "D3", "E3", "F2"),
stimuli_type = "scientific_music_notation",
display_modality = "visual",
asChord = FALSE,
page_type = "one_button_page",
page_title = "Present Scientific Notation Visually"
),
# pitch classes visual
musicassessr::present_stimuli(stimuli = c("C", "E", "G", "B", "A", "D", "E", "F"),
stimuli_type = "pitch_classes",
display_modality = "visual",
page_type = "one_button_page",
octave = 4,
asChord = FALSE,
page_title = "Present Pitch Classes Visually"
),
# sci notation with accidentals
musicassessr::present_stimuli(stimuli = c("C#4", "Eb4", "G#4", "Bb4", "A#4", "Db4", "E#4", "Gb2"),
stimuli_type = "scientific_music_notation",
display_modality = "visual",
asChord = FALSE,
page_type = "one_button_page",
page_title = "Present Scientific Notation Visually (with accidentals)"
),
# music.xml file file (visual)
musicassessr::present_stimuli(stimuli = 'stimuli/Berkowitz35.musicxml',
stimuli_type = "musicxml_file",
display_modality = "visual",
page_type = "one_button_page",
page_title = "Present .musicxml files visually"
),
psychTestR::one_button_page(shiny::tags$h2("Non-Musical Page Types")),
musicassessr::present_stimuli(stimuli = c("type these words back"),
stimuli_type = "words",
display_modality = "visual",
slide_length = 600,
page_type = "record_key_presses_page",
page_title = "Capture Key Presses"),
# images
musicassessr::present_stimuli(stimuli = c("img/dummy_stimuli/1.jpg",
"img/dummy_stimuli/2.jpg",
"img/dummy_stimuli/3.jpg",
"img/dummy_stimuli/4.jpg"),
stimuli_type = "images",
slide_length = 1000,
page_type = "one_button_page",
page_title = "Display Image Slides"
),
# digits
musicassessr::present_stimuli(stimuli = c("1", "2", "3"),
stimuli_type = "digits",
display_modality = "visual",
slide_length = 1000,
page_type = "one_button_page",
page_title = "Display Digit Slides"
),
# letters
musicassessr::present_stimuli(stimuli = c("A", "B", "C"),
stimuli_type = "letters",
display_modality = "visual",
slide_length = 300,
page_type = "one_button_page",
page_title = "Display Letter Slides"
),
# words
musicassessr::present_stimuli(stimuli = c("Hannover", "Schule", "für", "Musik", "Theater", "und", "Medien"),
stimuli_type = "words",
display_modality = "visual",
slide_length = 500,
page_type = "one_button_page",
page_title = "Display Word Slides"
),
# need to select voice first
select_voice_page(),
# digits (auditory)
musicassessr::present_stimuli(stimuli = c("1", "2", "3"),
stimuli_type = "digits",
display_modality = "auditory",
slide_length = 1000,
page_title = "Auditory Digit Presentation",
page_type = "one_button_page",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
# letters (auditory)
musicassessr::present_stimuli(stimuli = c("A", "B", "C"),
stimuli_type = "letters",
display_modality = "auditory",
slide_length = 300,
page_type = "one_button_page",
page_title = "Auditory Letter Presentation",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
# words (auditory)
musicassessr::present_stimuli(stimuli = c("welcome", "to", "Hannover"),
stimuli_type = "words",
display_modality = "auditory",
slide_length = 100,
page_type = "one_button_page",
page_title = "Auditory Word Presentation",
page_text = "This page is for presenting words, digits or letters in the aural domain."
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_type = "one_button_page",
page_title = "Video Page, One Button Page",
page_text = "Here is my video"
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and NAFC",
page_type = "NAFC_page",
choices = c("A", "B", "C"),
label = "test"
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_type = "dropdown_page",
page_title = "Video and dropdown",
label = "test",
choices = c("A", "B", "C")
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and slider",
page_type = "slider_page",
label = "slider page",
min = 1, max = 10, value = 5
),
musicassessr::present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
stimuli_type = "video",
page_title = "Video and page input",
page_type = "text_input_page",
label = "text_input_demo"),
psychTestR::final_page("The end")
), dict = musicassessr_dict))
psychTestR::make_test(timeline,
opt = psychTestR::test_options(
title = "musicassessr Test Showcase",
admin_password = "test",
additional_scripts = musicassessr::musicassessr_js(visual_notation = TRUE)
)
)
}
##
musicassessr_tl_code <- list(
'select_midi_device_page()',
'record_midi_page()',
# midi notes (auditory)
'record_audio_page()',
htmltools::HTML('one_button_page(body = tags$div(<br />present_stimuli(stimuli = c(60, 61, 62, 63),<br />
stimuli_type = "midi_notes",<br />
display_modality = "auditory",<br />
page_title = "Simple Present MIDI notes")))'),
#
# # rhythms (need percussion sound)
htmltools::HTML('present_stimuli(stimuli = list("8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n"),<br />
stimuli_type = "rhythms",<br />
page_title = "Present Rhythms",<br />
page_type = "one_button_page")'),
# # sci notation with rhythms
htmltools::HTML('present_stimuli(stimuli = list(scientific_music_notation = list("Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "A4", "Bb4", "Bb4", "A4", "G4", "F4", "Eb4", "F4", "Bb4", "Ab4", "G4", "F4", "Eb4", "F4", "Eb4", "G4", "Eb4", "A4", "Bb4", "Eb4", "A4", "Bb4", "C5", "A4", "Bb4", "C5", "D5", "Bb4", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "D5", "Eb5", "D5", "C5", "Bb4", "D5", "Eb5", "F5"),<br />
rhythms = list("8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n", list("2n", "4n"), "8n", "8n", "8n", "8n", "8n", list("4n", "8n"), "8n", "8n", "8n", "8n", "8n", "4n", "4n", list("2n", "4n", "8n"), "8n", "8n", list("2n", "4n"), "8n", "4t", "4t", "4t", "4t", "4t", "4t", "8n", list("2n", "4n"), "8n", "8n", "8n", "8n", "8n", list("4n", "8n"), "8n", "8n", "8n", "8n", "8n", "4n", "4n", list("2n", "4n", "8n"))),<br />
stimuli_type = "scientific_music_notation",<br />
display_modality = "auditory",<br />
page_title = "Present Notes (Sci Notation) + Rhythms Aurally",<br />
page_type = "one_button_page")')
#
#
# # midi notes (visual)
# present_stimuli(stimuli = c(60, 62, 64, 65),
# stimuli_type = "midi_notes",
# display_modality = "visual",
# asChord = FALSE,
# page_title = "Present MIDI notes visually",
# page_type = "one_button_page"
# #ascending = TRUE
# ),
#
# # midi notes (visual, as chord)
# present_stimuli(stimuli = c(60, 62, 64, 65),
# stimuli_type = "midi_notes",
# display_modality = "visual",
# asChord = TRUE,
# page_title = "Present MIDI notes visually, as chord",
# page_type = "one_button_page"
# #ascending = FALSE
# ),
#
#
#
# # midi file (auditory)
# present_stimuli(stimuli = 'stimuli/hinematov.mid',
# stimuli_type = "midi_file",
# display_modality = "auditory",
# page_title = "Play Midi File",
# page_type = "one_button_page"
# ),
#
# # sci notation visual
# present_stimuli(stimuli = c("C4", "E3", "G5", "B4", "A2", "D3", "E3", "F2"),
# stimuli_type = "scientific_music_notation",
# display_modality = "visual",
# asChord = FALSE,
# page_type = "one_button_page",
# page_title = "Present Scientific Notation Visually"
# ),
#
# # pitch classes visual
# present_stimuli(stimuli = c("C", "E", "G", "B", "A", "D", "E", "F"),
# stimuli_type = "pitch_classes",
# display_modality = "visual",
# page_type = "one_button_page",
# octave = 4,
# asChord = FALSE,
# page_title = "Present Pitch Classes Visually"
# ),
#
# # sci notation with accidentals
# present_stimuli(stimuli = c("C#4", "Eb4", "G#4", "Bb4", "A#4", "Db4", "E#4", "Gb2"),
# stimuli_type = "scientific_music_notation",
# display_modality = "visual",
# asChord = FALSE,
# page_type = "one_button_page",
# page_title = "Present Scientific Notation Visually (with accidentals)"
# ),
#
# # music.xml file file (visual)
# present_stimuli(stimuli = 'stimuli/Berkowitz35.musicxml',
# stimuli_type = "musicxml_file",
# display_modality = "visual",
# page_type = "one_button_page",
# page_title = "Present .musicxml files visually"
# ),
#
# psychTestR::one_button_page(shiny::tags$h2("Non-Musical Page Types")),
#
#
# present_stimuli(stimuli = c("type these words back"),
# stimuli_type = "words",
# display_modality = "visual",
# slide_length = 600,
# page_type = "record_key_presses_page",
# page_title = "Capture Key Presses"),
#
# # images
# present_stimuli(stimuli = c("img/dummy_stimuli/1.jpg",
# "img/dummy_stimuli/2.jpg",
# "img/dummy_stimuli/3.jpg",
# "img/dummy_stimuli/4.jpg"),
# stimuli_type = "images",
# slide_length = 1000,
# page_type = "one_button_page",
# page_title = "Display Image Slides"
# ),
#
#
# # digits
# present_stimuli(stimuli = c("1", "2", "3"),
# stimuli_type = "digits",
# display_modality = "visual",
# slide_length = 1000,
# page_type = "one_button_page",
# page_title = "Display Digit Slides"
# ),
#
#
# # letters
# present_stimuli(stimuli = c("A", "B", "C"),
# stimuli_type = "letters",
# display_modality = "visual",
# slide_length = 300,
# page_type = "one_button_page",
# page_title = "Display Letter Slides"
# ),
#
# # words
# present_stimuli(stimuli = c("Hannover", "Schule", "für", "Musik", "Theater", "und", "Medien"),
# stimuli_type = "words",
# display_modality = "visual",
# slide_length = 500,
# page_type = "one_button_page",
# page_title = "Display Word Slides"
# ),
#
# # need to select voice first
# select_voice_page(),
#
# # digits (auditory)
# present_stimuli(stimuli = c("1", "2", "3"),
# stimuli_type = "digits",
# display_modality = "auditory",
# slide_length = 1000,
# page_title = "Auditory Digit Presentation",
# page_type = "one_button_page",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
#
# # letters (auditory)
# present_stimuli(stimuli = c("A", "B", "C"),
# stimuli_type = "letters",
# display_modality = "auditory",
# slide_length = 300,
# page_type = "one_button_page",
# page_title = "Auditory Letter Presentation",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
# # words (auditory)
# present_stimuli(stimuli = c("welcome", "to", "Hannover"),
# stimuli_type = "words",
# display_modality = "auditory",
# slide_length = 100,
# page_type = "one_button_page",
# page_title = "Auditory Word Presentation",
# page_text = "This page is for presenting words, digits or letters in the aural domain."
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_type = "one_button_page",
# page_title = "Video Page, One Button Page",
# page_text = "Here is my video"
# ),
#
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and NAFC",
# page_type = "NAFC_page",
# choices = c("A", "B", "C"),
# label = "test"
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_type = "dropdown_page",
# page_title = "Video and dropdown",
# label = "test",
# choices = c("A", "B", "C")
# ),
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and slider",
# page_type = "slider_page",
# label = "slider page",
# min = 1, max = 10, value = 5
# ),
#
#
# present_stimuli(stimuli = "https://www.sample-videos.com/video123/mp4/720/big_buck_bunny_720p_5mb.mp4",
# stimuli_type = "video",
# page_title = "Video and page input",
# page_type = "text_input_page",
# label = "text_input_demo")
)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.