Nothing
#' Get HTTP status codes
#'
#' @export
#' @seealso [ping()]
#' @examples
#' status_codes()
status_codes <- function() {
c(
100,101,102,200,201,202,203,204,205,206,207,208,226,300,301,302,
303,304,305,306,307,308,400,401,402,403,404,405,406,407,408,409,
410,411,412,413,414,415,416,417,418,419,420,422,423,424,425,426,
500,501,502,503,504,505,506,507,508
)
}
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.