add argonCascade effect. Rebuild website. Update example.R

NAMESPACE

@@ -7,6 +7,8 @@ export(argonButton)
 export(argonCard)
 export(argonCarousel)
 export(argonCarouselItem)
+export(argonCascade)
+export(argonCascadeItem)
 export(argonColumn)
 export(argonContainer)
 export(argonDropdown)

R/argonAlert.R

@@ -4,7 +4,7 @@
 #'
 #' @param ... Alert content.
 #' @param icon Alert icon.
-#' @param status Alert status.
+#' @param status Alert status. See \url{https://demos.creative-tim.com/argon-design-system/docs/components/alerts.html}.
 #' @param closable Whether to make the alert closable or not. TRUE by default.
 #' 
 #' @examples 

R/argonBadge.R

@@ -5,7 +5,7 @@
 #' @param text Badge text.
 #' @param src Badge external link.
 #' @param pill Pill mode. FALSE by default.
-#' @param status Badge status.
+#' @param status Badge status. See \url{https://demos.creative-tim.com/argon-design-system/docs/components/badge.html}.
 #' 
 #' @examples 
 #' if (interactive()) {

R/argonButton.R

@@ -3,7 +3,7 @@
 #' Build an argon button
 #'
 #' @param name Button label.
-#' @param status Button color.
+#' @param status Button color. See \url{https://demos.creative-tim.com/argon-design-system/docs/components/buttons.html}.
 #' @param icon Button icon.
 #' @param size Button size: NULL, "sm" or "lg".
 #' @param block Whether the button fill its parent. FALSE by default.

R/argonCard.R

@@ -12,8 +12,8 @@
 #' @param hover_shadow Only if shadow is TRUE. Whether to enlarge the shadow on hover. FALSE by default.
 #' @param border_level Border level. O by default.
 #' @param icon Card icon
-#' @param status Card status. 
-#' @param background_color Card background color. NULL by default.
+#' @param status Card status. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
+#' @param background_color Card background color. NULL by default. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param gradient Whether to apply a gradient effect on the card background. FALSE by default.
 #' @param floating Whether to animate the card by a vertical floating movement. FALSE by default.
 #' Not compatible with hover_lift.

R/argonFooter.R

@@ -4,7 +4,7 @@
 #'
 #' @param ... Footer content.
 #' @param has_card Enable card rendering in the footer. FALSE by default.
-#' @param status  Footer status color.
+#' @param status  Footer status color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param gradient Whether to apply a gradient. FALSE by default.
 #'
 #' @examples

R/argonIcon.R

@@ -3,7 +3,7 @@
 #' Build an argon Nucleo icon
 #'
 #' @param name icon name.
-#' @param color icon color. 
+#' @param color icon color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' 
 #' @examples 
 #' if (interactive()) {
@@ -31,7 +31,7 @@ argonIcon <- function(name, color = NULL) {
 #' @param iconTag Slot for \link{argonIcon}
 #' @param circle Wrapper's shape. TRUE by default. 
 #' @param size Wrapper size. "sm", "md" or "lg".
-#' @param status Wrapper color. 
+#' @param status Wrapper color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param gradient_color icon gradient background color.
 #' @param shadow Whether to apply a shadow effet. TRUE by default.
 #' @param hover_shadow Only if shadow is TRUE. Whether to enlarge the shadow on hover. FALSE by default.

R/argonModal.R

@@ -5,7 +5,7 @@
 #' @param ... Modal body content.
 #' @param id Modal unique id. Should be the same as modal_id from \link{argonButton}.
 #' @param title Modal title.
-#' @param status Modal color.
+#' @param status Modal color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param gradient Modal background gradient. FALSE by default. Does not work if status is NULL.
 #'
 #' @examples

R/argonNavbar.R

@@ -195,7 +195,7 @@ argonDropdown <- function(..., name, size = NULL) {
 #' @param description Item description if any.
 #' @param src HTML target page.
 #' @param icon Item icon of any.
-#' @param status Icon and name color status.
+#' @param status Icon and name color status. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #'
 #' @examples
 #' if(interactive()){

R/argonPage.R

@@ -54,7 +54,7 @@ argonPage <- function(..., title = NULL, description = NULL, author = NULL,
       htmltools::tags$script(src = "inst/assets/vendor/bootstrap/bootstrap.min.js"),
       htmltools::tags$script(src = "inst/assets/vendor/headroom/headroom.min.js"),
       # Optional JS -->
-      #htmltools::tags$script(src = "inst/assets/vendor/onscreen/onscreen.min.js"),
+      htmltools::tags$script(src = "inst/assets/vendor/onscreen/onscreen.min.js"),
       #htmltools::includeScript(path = "./assets/vendor/nouislider/js/nouislider.min.js"),
       #htmltools::includeScript(path = "./assets/vendor/bootstrap-datepicker/js/bootstrap-datepicker.min.js"),
 

R/argonProgress.R

@@ -4,7 +4,7 @@
 #' 
 #' @param value Progress value between 0 and 100.
 #' @param text Label text.
-#' @param status Progress status color.  
+#' @param status Progress status color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' 
 #' @examples 
 #' if (interactive()) {

R/argonSection.R

@@ -4,11 +4,12 @@
 #'
 #' @param ... Any UI element.
 #' @param size Section size. NULL by default.
-#' @param status Section status.
+#' @param status Section status. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param gradient Section gradient effect. FALSE by default.
 #' @param separator Section bottom separator. FALSE by default.
-#' @param separator_color Separator color. "secondary" by default.
+#' @param separator_color Separator color. "secondary" by default. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' @param shape Whether to include shape in the background. FALSE by default.
+#' @param cascade Whether to enable a cascade effect. FALSE by default.
 #' 
 #' @examples 
 #' if (interactive()) {
@@ -20,7 +21,8 @@
 #'
 #' @export
 argonSection <- function(..., size = NULL, status = "default", gradient = FALSE, 
-                         separator = FALSE, separator_color = "secondary", shape = FALSE) {
+                         separator = FALSE, separator_color = "secondary", shape = FALSE,
+                         cascade = FALSE) {
 
   if (shape) {
     if (status != "default" || status != "primary") status <- "default"
@@ -31,9 +33,10 @@ argonSection <- function(..., size = NULL, status = "default", gradient = FALSE,
   if (gradient) {
     if (!is.null(status) && !shape) sectionCl <- paste0(sectionCl, " bg-gradient-", status)
   } else {
-    if (!shape && !is.null(status)) sectionCl <- sectionCl <- paste0(sectionCl, " bg-", status)
+    if (!shape && !is.null(status)) sectionCl <- paste0(sectionCl, " bg-", status)
   }
   if (shape) sectionCl <- paste0(sectionCl, " section-shaped pb-250")
+  if (cascade) sectionCl <- paste0(sectionCl, " section-nucleo-icons pb-250")
 
   htmltools::tags$section(
     class = sectionCl,

R/extra-effects.R

@@ -29,7 +29,7 @@ argonPersp <- function(..., side) {
 #'
 #' @param ... Tag to be treated by the blur effect.
 #' @param text Text that appears on hover.
-#' @param text_color Text color.
+#' @param text_color Text color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' 
 #' @examples 
 #' if (interactive()) {
@@ -52,4 +52,65 @@ argonBlur <- function(..., text = NULL, text_color = NULL) {
     ),
     htmltools::tags$span(class = paste0("blur-hidden h2 text-", text_color), text)
   )
+}
+
+
+
+#' Create a Boostrap 4 cascade effect
+#'
+#' Build an argon cascade effect
+#'
+#' @param ... Slot for \link{argonCascadeItem}. Exactly 13 items.
+#' 
+#' @note You must pass cascade = TRUE to argonSection
+#' 
+#' @examples 
+#' if (interactive()) {
+#'  library(argonR)
+#'
+#' }
+#' 
+#' @author David Granjon, \email{dgranjon@@ymail.com}
+#'
+#' @export
+argonCascade <- function(...) {
+
+  htmltools::tags$div(
+    class = "icons-container mt-5 on-screen",
+    `data-toggle` = "on-screen",
+    ...
+  )
+}
+
+
+
+#' Create a Boostrap 4 cascade item
+#'
+#' Build an argon cascade item
+#'
+#' @param name Icon name.
+#' @param size Icon size: NULL, "sm" or "lg".
+#' @param src Optional external url, link, ...
+#' 
+#' @examples 
+#' if (interactive()) {
+#'  library(argonR)
+#'
+#' }
+#' 
+#' @author David Granjon, \email{dgranjon@@ymail.com}
+#'
+#' @export
+argonCascadeItem <- function(name, size = NULL, src = NULL) {
+
+  cascadeItemCl <- "icon"
+  if (!is.null(size)) cascadeItemCl <- paste0(cascadeItemCl, " icon-", size)
+  if (!is.null(name)) cascadeItemCl <- paste0(cascadeItemCl, " ni ni-", name)
+
+  htmltools::a(
+    href = src,
+    target = "_blank",
+    htmltools::tags$i(class = cascadeItemCl) 
+  )
+
 }

R/typography.R

@@ -103,7 +103,7 @@ argonQuote <- function(..., footer = NULL, source = NULL, align = "center") {
 #' A custom color fo your text
 #' 
 #' @param tag Any tag containing text.
-#' @param color Text color.
+#' @param color Text color. See \url{https://demos.creative-tim.com/argon-design-system/docs/foundation/colors.html}.
 #' 
 #' @examples
 #' if (interactive()) {

_pkgdown.yml

@@ -67,6 +67,8 @@ reference:
   contents:
   - '`argonBlur`'
   - '`argonPersp`'
+  - '`argonCascade`'
+  - '`argonCascadeItem`'
 
 template:
   params: