R/microphone_calibration_page.R

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

#' Microphone Calibration Page
#'
#' @param button_text
#' @param concise_wording
#' @param musical_instrument
#'
#' @return
#' @export
#'
#' @examples
microphone_calibration_page <- function(button_text = psychTestR::i18n("Start_test"), concise_wording = FALSE, musical_instrument = FALSE) {

  if(concise_wording) {
    wording <- shiny::tags$div(shiny::tags$p(psychTestR::i18n("microphone_calibration_concise_message_1")),
                               shiny::tags$p(psychTestR::i18n("microphone_calibration_concise_message_2")),
                               if(musical_instrument) shiny::tags$p(shiny::tags$strong()))
  } else {
    wording <- shiny::tags$div(shiny::tags$p(psychTestR::i18n("microphone_calibration_message_1")),
                    shiny::tags$p(psychTestR::i18n("microphone_calibration_message_2")),
                    shiny::tags$p(psychTestR::i18n("microphone_calibration_message_3")))
  }

  ui <- shiny::tags$div(

    shiny::tags$h2(psychTestR::i18n("Microphone_Test")),
    volume_meter(),
      wording,
    shiny::tags$p(psychTestR::i18n("take_several_seconds")),
    shiny::tags$button(button_text, id = "startButton", class="btn btn-default action-button"),
    shiny::tags$br(),
    loading(),
    psychTestR::trigger_button(label = psychTestR::i18n("microphone_calibration_button"), inputId = "nextButton", style = "visibility: hidden;"),
    shiny::includeScript(path=system.file("www/js/microphone_signal_test.js", package = "musicassessr"))

  ) # end main div

  psychTestR::page(ui = ui, admin_ui = NULL, on_complete = NULL, label = NULL, save_answer = FALSE)
}

volume_meter <- function(type = "default", start_hidden = FALSE, high = "0.25", max = "1") {

  if(type == "default") {
    v <- shiny::tags$meter(id = "volumeMeter", high = high, max = max, value = "0", style = "width: 400px; height: 50px; margin: 20px 0 20px 0;")
  } else if(type == "playful") {
    if(start_hidden) {
      v <- shiny::tags$img(src = 'https://adaptiveeartraining.com/assets/img/SAA_intro.png', id = "volumeMeter", height = 200, width = 200, style = "visibility:hidden;")
    } else {
      v <- shiny::tags$img(src = 'https://adaptiveeartraining.com/assets/img/SAA_intro.png', id = "volumeMeter", height = 200, width = 200)
    }
  } else {
    stop('Volume meter type must be "default" or "playful"')
  }
  v
}