Nothing
#' Error
#'
#' @export
Warning <- R6::R6Class(
"Warning",
inherit = Issue,
#' @details Initialise
#'
#' @param obj A character string or an object of
#' class `error`, or `warning`.
#' @param type Type of message.
public = list(
initialize = function(obj){
super$initialize(obj, type = "warning")
super$raiser <- getOption("ERR_RAISER_WARNING", warner)
},
#' @details Warn
#'
#' Analogous to [warning()]
warn = function(){
super$raise()
}
)
)
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.