icon("gear") => icon("cogs")

R/dashboardHeader.R

@@ -97,7 +97,7 @@
 #' @export
 dashboardHeader <- function(..., title = NULL, titleWidth = NULL, 
                             disable = FALSE, .list = NULL, leftUi = NULL,
-                            controlbarIcon = shiny::icon("gears"), fixed = FALSE) {
+                            controlbarIcon = shiny::icon("cogs"), fixed = FALSE) {
   # handle right menu items
   items <- c(list(...), .list)
   lapply(items, tagAssert, type = "li", class = "dropdown")
@@ -587,4 +587,4 @@ messageItem <- function (from, message, icon = shiny::icon("user"), time = NULL,
         shiny::tags$small(shiny::icon("clock-o"), time)), shiny::p(message)
     )
   )
-}
+}

R/useful-items.R

@@ -1461,7 +1461,7 @@ starBlock <- function(value, max = 5, color = "yellow") {
 #'        timelineLabel(2018, color = "teal"),
 #'        timelineItem(
 #'         title = "Item 1",
-#'         icon = icon("gears"),
+#'         icon = icon("cogs"),
 #'         color = "olive",
 #'         time = "now",
 #'         footer = "Here is the footer",
@@ -1489,7 +1489,7 @@ starBlock <- function(value, max = 5, color = "yellow") {
 #'        timelineLabel(2018, color = "teal"),
 #'        timelineItem(
 #'         title = "Item 1",
-#'         icon = icon("gears"),
+#'         icon = icon("cogs"),
 #'         color = "olive",
 #'         time = "now",
 #'         footer = "Here is the footer",
@@ -2458,4 +2458,4 @@ updateUserMessages <- function(id, action = c("add", "remove", "update"),
       body = content
     )
   )
-}
+}

inst/examples/box_elements/timeline.R

@@ -8,7 +8,7 @@ timeline1 <- 'box(
     timelineLabel(2018, color = "teal"),
     timelineItem(
       title = "Item 1",
-      icon = icon("gears"),
+      icon = icon("cogs"),
       color = "olive",
       time = "now",
       footer = "Here is the footer",
@@ -38,7 +38,7 @@ timeline2 <- 'timelineBlock(
   timelineLabel(2018, color = "teal"),
   timelineItem(
     title = "Item 1",
-    icon = icon("gears"),
+    icon = icon("cogs"),
     color = "olive",
     time = "now",
     footer = "Here is the footer",
@@ -57,4 +57,4 @@ timeline2 <- 'timelineBlock(
     timelineItemMedia(image = "https://placehold.it/150x100")
   ),
   timelineStart(color = "purple")
-)'
+)'