R/get_trial_portfolio_number.R

In shirdekel/shirthesis: Thesis functions

##' @title Get portfolio trial - number
##'
##' @param distribution Distribution
##' @param preamble Preamble
##' @param project_number Project number
##'
##' @return A "trial" object
##' @author Shir Dekel
##' @export
get_trial_portfolio_number <- function(preamble = "", distribution = "absent", project_number = 10) {

  trial_portfolio_number_html <- get_survey_number(
    label_text = htmltools::p(
      htmltools::strong(
        "The total number of projects you were shown is ",
        project_number,
        ". If you could choose to invest in a certain number of those ",
        project_number,
        " projects, how many would you invest in?"
      )
    ),
    name = "portfolio_number",
    max = project_number,
    suffix = "projects") %>%
    as.character()

  trial_portfolio_number <- jaysire::trial_generic(
    "survey-html-form",
    html = stringr::str_c(preamble, trial_portfolio_number_html),
    data = jaysire::insert_property(stage = "portfolio_number")
  ) %>%
    jaysire::build_timeline() %>%
    jaysire::display_if(jaysire::fn_data_condition(distribution == !!distribution))

  return(trial_portfolio_number)

}