Update cat_for_status.R

R/cat_for_status.R

@@ -6,7 +6,7 @@
 #' @param code An http status code
 #' @param browse (logical) If `TRUE`, opens image in default browser. If
 #' `FALSE`, returns the URL of the image.
-#' @details uses a service for cats (https://http.cat) and
+#' @details uses a service for cats (https://httpcats.com) and
 #' dogs (https://http.dog) and goats (https://httpgoats.com)
 #' @return Opens image in your default browser, or returns URL
 #' @examples \dontrun{
@@ -33,7 +33,7 @@ cat_for_status <- function(code, browse = FALSE) {
   assert(browse, "logical")
   code <- as.character(code)
   if (code %in% names(status_codes)) {
-    url <- sprintf('https://http.cat/%s', code)
+    url <- sprintf('https://httpcats.com/%s', code)
     if (browse) utils::browseURL(url) else url
   } else {
     stopcode("No cat code found", code)