feat: added bs5_spinner

NAMESPACE

@@ -10,6 +10,7 @@ export(Waitress)
 export(attendantBar)
 export(autoWaiter)
 export(bs4_spinner)
+export(bs5_spinner)
 export(hostess_bubble)
 export(hostess_gradient)
 export(hostess_loader)

NEWS.md

@@ -9,8 +9,8 @@ the attendant instead of `httr::progress`.
 - Fix major issue with `Hostess`, it was basically broken
 [#108](https://github.com/JohnCoene/waiter/issues/108).
 - Add `withWaiter` as requested in 
-[#105](https://github.com/JohnCoene/waiter/issues/105)
-- Added `bs4_spinner`.
+[#105](https://github.com/JohnCoene/waiter/issues/105).
+- Added `bs4_spinner` and `bs5_spinner`.
 
 # waiter 0.2.3
 

R/spinners.R

@@ -773,6 +773,38 @@ bs4_spinner <- function(
   )
 }
 
+#' @rdname spinners
+#' @export 
+bs5_spinner <- function(
+  style = c("spin", "grow"),
+  color = c(
+    "primary",
+    "secondary",
+    "success",
+    "danger",
+    "warning",
+    "info",
+    "light",
+    "dark"
+  )
+) {
+  style <- match.arg(style)
+  color <- match.arg(color)
+
+  cl <- "border"
+  if(style == "grow")
+    cl <- "grow"
+
+  tags$div(
+    class = sprintf("spinner-%s text-%s", cl, color),
+    role = "status",
+    tags$span(
+      class = "visually-hidden",
+      "Loading..."
+    )
+  )
+}
+
 #' @rdname spinners
 #' @export
 spin_google <- function(){

docs/changelog.md

@@ -2,7 +2,7 @@
 
 List of changes made to waiter.
 
-# waiter 0.2.4.9000
+## waiter 0.2.4.9000
 
 - Added `httr_progress` function to use  the waitress or
 the attendant instead of `httr::progress`.
@@ -13,8 +13,8 @@ the attendant instead of `httr::progress`.
 - Fix major issue with `Hostess`, it was basically broken
 [#108](https://github.com/JohnCoene/waiter/issues/108).
 - Add `withWaiter` as requested in 
-[#105](https://github.com/JohnCoene/waiter/issues/105)
-
+[#105](https://github.com/JohnCoene/waiter/issues/105).
+- Added `bs4_spinner` and `bs5_spinner`.
 
 ## waiter 0.2.3