Nothing
#' @include plumber.R
NULL
#' Deprecated R6 functions
#'
#' @keywords internal
#' @describeIn deprecated_r6 See [Hookable()]
hookable <- R6Class(
"hookable",
inherit = Hookable,
public = list(
#' @description Initialize a new `hookable`. Throws deprecated warning prompting user to use [`Hookable`]
initialize = function() {
# use `.Deprecated` until `lifecycle` gets R6 support
.Deprecated(msg = paste0(
"`hookable` is deprecated as of plumber 1.0.0.\n",
"Please use `Hookable` instead."
))
# lifecycle::deprecate_warn("1.0.0", "hookable$new()", "Hookable$new()")
## no initialize method
# super$initialize()
}
)
)
#' Deprecated R6 functions
#'
#' @keywords internal
#' @export
#' @describeIn deprecated_r6 See [Plumber()]
plumber <- R6Class(
"plumber",
inherit = Plumber,
public = list(
#' @description Initialize a new `plumber`. Throws deprecated warning prompting user to use [`Plumber`]
#' @param ... params passed in to `Plumber$new()`
initialize = function(...) {
# use `.Deprecated` until `lifecycle` gets R6 support
.Deprecated(msg = paste0(
"`plumber` is deprecated as of plumber 1.0.0.\n",
"Please use `Plumber` instead."
))
# lifecycle::deprecate_warn("1.0.0", "hookable$new()", "Hookable$new()")
super$initialize(...)
}
)
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.