inst/examples/example_question_parsons.R

In rstudio/parsons: Create Parsons Programming Problems in 'learnr` Tutorials

if (require(learnr, quietly = TRUE)) {
  # to be used within a learnr tutorial...
  question_parsons(
    initial = c(
      "iris",
      "mutate(...)",
      "summarize(...)",
      "print()"
    ),
    answer(c(
      "iris",
      "mutate(...)",
      "summarize(...)"
    ), correct = TRUE),
  answer(c(
    "iris",
    "mutate(...)",
    "summarize(...)",
    "print()"
    ))
  )
}


if (require(learnr, quietly = TRUE)) {
  # to be used within a learnr tutorial...
  question_parsons(
    initial = c(
      "iris",
      "mutate(...)",
      "summarize(...)",
      "print()"
    ),
    answer(c(
      "iris",
      "mutate(...)",
      "summarize(...)"
    ), correct = TRUE),
    fail_if(
      function(x){!"print()" %in% x},
      "You should not include print()"
    )
  )
}

if (require(learnr, quietly = TRUE)) {
  # to be used within a learnr tutorial...
  question_parsons(
    initial = c(
      "iris",
      "mutate(...)",
      "summarize(...)",
      "print()"
    ),
    pass_if(c(
      "iris",
      "mutate(...)",
      "summarize(...)"
    )),
    fail_if(
      function(x){!"print()" %in% x},
      "You should not include print()"
    )
  )
}