## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----room-template, eval = FALSE, code = readLines(system.file("templates", "student-room.R", package = "escapeR"), warn = FALSE)----
# # Author: replace with your name
# # Student number: replace with your student number
# # Course topic: means of ecological counts
# # Data source: invented counts for this teaching example
# # Teacher's solution: mean(c(2, 4, 6)) gives 4 snails per quadrat
# # Change the example into your own puzzle before submitting it.
# 
# library(escapeR)
# 
# my_room <- new_room(
#   id = "s19549a",
#   module = "Ecological summaries",
#   title = "The Snail Garden",
#   learning_goal = "Create a vector and calculate a mean.",
#   introduction = "A garden gate is locked. Three quadrat counts are written on its sign.",
#   challenge = "Three equal-area quadrats contain 2, 4, and 6 snails. Use R to calculate the mean number of snails per quadrat. Submit that mean.",
#   hints = c(
#     "The mean is the sum of the counts divided by the number of quadrats.",
#     "Use c() to put the three counts into a vector, then use mean().",
#     "Try mean(c(2, 4, 6))."
#   ),
#   correct_result = 4,
#   success = "The gate opens. You can take your field notebook into the garden!",
#   failure = "Check that you included all three quadrats, then calculate their mean."
# )
# 
# # This makes the room available for playing in this R session.
# # replace = TRUE lets you source the file again after editing your own room.
# register_rooms(my_room, replace = TRUE)

## ----eval = FALSE-------------------------------------------------------------
# file.copy(
#   system.file("templates", "student-room.R", package = "escapeR"),
#   "my-room.R"
# )

## -----------------------------------------------------------------------------
mean(c(2, 4, 6))

## ----eval = FALSE-------------------------------------------------------------
# source("19549_snail_room.R")
# escape(player = "my_room_test", reset = TRUE, escape = my_room$id)

## ----eval = FALSE-------------------------------------------------------------
# submit(5)       # A wrong answer should leave the door locked.
# hint()         # The first clue should appear.
# hint()         # The second clue should appear.
# hint()         # The final clue should help you solve the task in R.
# submit(4)       # The correct answer should open the door.

## ----eval = FALSE-------------------------------------------------------------
# vignette("creating-themed-escape-rooms", package = "escapeR")