get_questionnaire <- function(responses) {
agreement_questions <- c(
"cr1", "cp1", "repo1", "rec1", "cfo1", "cfo2",
"env1", "env2", "inter1", "inter2", "pa1"
)
agreement_other_questions <- c("oss1", "fp3", "fp4", "psych")
multiple_choice_questions <- c("fp1", "pipe1", "computer")
free_response_questions <- c(
"cr1describe", "cr2describe", "cp1describe",
"repo1describe", "rec1describe",
"fp1describe", "pipe1describe",
"cfo3describe", "oss1describe", "inter2describe", "fp5describe",
"pa1example",
"best",
"design1", "recursive", "metaphor", "history",
"design2", "reusable", "challenges", "nontransfer"
)
question_names <- c(agreement_questions, agreement_other_questions,
multiple_choice_questions, free_response_questions)
questionnaire <- responses %>%
filter(question_name %in% question_names) %>%
select(subj_id, question_name, response_str) %>%
spread(question_name, response_str) %>%
recode_all_agreement() %>%
recode_all_agreement_other() %>%
recode_all_multiple_choice()
questionnaire
}
get_question_text <- function(name) {
e_ <- new.env()
data("questions", package = "programmingquestionnaire", envir = e_)
filter(e_$questions, question_name == name)$question_text
}
create_wrapped_title <- function(name) {
get_question_text(name) %>%
strwrap(50) %>%
paste(collapse = "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.