#' Set timeout as an expected return on a match
#'
#' @export
#' @param .data input. Anything that can be coerced to a `StubbedRequest` class
#' object
#' @return an object of class `StubbedRequest`, with print method describing
#' the stub
#' @note see examples in [stub_request()]
to_timeout <- function(.data) {
assert(.data, "StubbedRequest")
.data$to_timeout()
return(.data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.