rt_min <- oneInRowTable(content = "\"One in row table\" task",
rows = c("alfa", "beta", "gamma", "alpha"),
rows_identifiers = c("a", "b", "g", "aa"),
cols = c("A", "B", "G"),
cols_identifiers = c("as", "bs", "gs"),
answers_identifiers = c("a as", "b bs", "g gs", "aa as"))
rt <- oneInRowTable(identifier = "id_task_1234",
title = "Table with one answer per row",
content = "\"One in row 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"),
cols_identifiers = c("as", "bs", "gs"),
answers_identifiers = c("a as", "b bs", "g gs", "aa as"),
answers_scores = c(1, 0.5, 0.1, 1),
shuffle_rows = FALSE,
shuffle_cols = TRUE)
Run the code above in your browser using DataLab