dp_min <- directedPair(content = "\"Directed pairs\" task",
rows = c("alfa", "beta", "gamma"),
rows_identifiers = c("a", "b", "g"),
cols = c("A", "B", "G;"),
cols_identifiers = c("as", "bs", "gs"),
answers_identifiers = c("a as", "b bs", 'g gs'))
dp <- directedPair(identifier = "id_task_1234",
title = "Directed Pair Task",
content = "\"Directed pairs\" 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"),
cols_identifiers = c("as", "bs", "gs"),
answers_identifiers = c("a as", "b bs", "g gs"),
answers_scores = c(1, 0.5, 0.1),
shuffle_rows = FALSE,
shuffle_cols = TRUE,
orientation = "horizontal")
Run the code above in your browser using DataLab