ct_min <- oneInColTable(content = "\"One in column table\" task",
rows = c("alfa", "beta", "gamma"),
rows_identifiers = c("a", "b", "g"),
cols = c("A", "B", "G", "a"),
cols_identifiers = c("as", "bs", "gs", "aas"),
answers_identifiers = c("a as", "b bs", "g gs", "a aas"))
ct <- oneInColTable(identifier = "id_task_1234",
title = "Table with one answer per column",
content = "\"One in column table\" task",
prompt = "Plain text, can be used instead of the content",
rows = c("alfa", "beta", "gamma"),
rows_identifiers = c("a", "b", "g"),
cols = c("A", "B", "G", "a"),
cols_identifiers = c("as", "bs", "gs", "aas"),
answers_identifiers = c("a as", "b bs", "g gs", "a aas"),
answers_scores = c(1, 0.5, 0.1, 1),
shuffle_rows = FALSE,
shuffle_cols = TRUE)
Run the code above in your browser using DataLab