mt_min <- multipleChoiceTable(content = "\"Multiple choice table\" task",
rows = c("alfa", "beta", "gamma", "alpha"),
rows_identifiers = c("a", "b", "g", "aa"),
cols = c("A", "B", "G", "a"),
cols_identifiers = c("as", "bs", "gs", "aas"),
answers_identifiers = c("a as", "b bs", "g gs", "aa as", "a aas", "aa aas"))
mt <- multipleChoiceTable(identifier = "id_task_1234",
title = "Table with many possible answers in rows and cols",
content = "\"Multiple choice table\" task",
prompt = "Plain text, can be used instead of the content",
rows = c("alfa", "beta", "gamma", "alpha"),
rows_identifiers = c("a", "b", "g", "aa"),
cols = c("A", "B", "G", "a"),
cols_identifiers = c("as", "bs", "gs", "aas"),
answers_identifiers = c("a as", "b bs", "g gs", "aa as", "a aas", "aa aas"),
answers_scores = c(1, 0.5, 0.1, 1, 0.5, 1),
shuffle_rows = FALSE,
shuffle_cols = TRUE)
Run the code above in your browser using DataLab