Switch to Font Awesome 6 icon names

dreamRs · Jul 28, 2022 · 29ac6e3 · 29ac6e3
1 parent 830cd5e
commit 29ac6e3
Show file tree

Hide file tree

Showing 34 changed files with 73 additions and 73 deletions.
diff --git a/R/input-actiongroupbuttons.R b/R/input-actiongroupbuttons.R
@@ -26,7 +26,7 @@
 #'     br(),
 #'     actionGroupButtons(
 #'       inputIds = c("btn1", "btn2", "btn3"),
-#'       labels = list("Action 1", "Action 2", tags$span(icon("cog"), "Action 3")),
+#'       labels = list("Action 1", "Action 2", tags$span(icon("gear"), "Action 3")),
 #'       status = "primary"
 #'     ),
 #'     verbatimTextOutput(outputId = "res1"),

diff --git a/R/input-circlebutton.R b/R/input-circlebutton.R
@@ -23,7 +23,7 @@
 #'
 #'   ui <- fluidPage(
 #'     tags$h3("Rounded actionBution"),
-#'     circleButton(inputId = "btn1", icon = icon("cog")),
+#'     circleButton(inputId = "btn1", icon = icon("gear")),
 #'     circleButton(
 #'       inputId = "btn2",
 #'       icon = icon("sliders"),

diff --git a/R/input-dropdown.R b/R/input-dropdown.R
@@ -55,7 +55,7 @@
 #'       label_on = "NAs keeped",
 #'       label_off = "NAs removed",
 #'       icon_on = icon("check"),
-#'       icon_off = icon("remove")
+#'       icon_off = icon("xmark")
 #'     )
 #'   ),
 #'   tags$div(style = "height: 140px;"), # spacing
@@ -234,7 +234,7 @@ tooltipOptions <- function(placement = "right",
 #'                      label = "Close dropdown"),
 #'         circle = TRUE, status = "danger",
 #'         inputId = "mydropdown",
-#'         icon = icon("cog"), width = "300px"
+#'         icon = icon("gear"), width = "300px"
 #'       )
 #'     ),
 #'     column(

diff --git a/R/input-icon.R b/R/input-icon.R
@@ -69,7 +69,7 @@ textInputIcon <- function(inputId,
 #'   textInputIcon(
 #'     inputId = "id",
 #'     label = "With an icon",
-#'     icon = icon("user-circle")
+#'     icon = icon("circle-user")
 #'   ),
 #'   actionButton("updateValue", "Update value"),
 #'   actionButton("updateIcon", "Update icon"),

diff --git a/R/input-search.R b/R/input-search.R
@@ -26,8 +26,8 @@
 #'     searchInput(
 #'       inputId = "search", label = "Enter your text",
 #'       placeholder = "A placeholder",
-#'       btnSearch = icon("search"),
-#'       btnReset = icon("remove"),
+#'       btnSearch = icon("magnifying-glass"),
+#'       btnReset = icon("xmark"),
 #'       width = "450px"
 #'     ),
 #'     br(),
@@ -118,8 +118,8 @@ searchInput <- function(inputId, label = NULL, value = "", placeholder = NULL,
 #'   searchInput(
 #'     inputId = "search", label = "Enter your text",
 #'     placeholder = "A placeholder",
-#'     btnSearch = icon("search"),
-#'     btnReset = icon("remove"),
+#'     btnSearch = icon("magnifying-glass"),
+#'     btnReset = icon("xmark"),
 #'     width = "450px"
 #'   ),
 #'   br(),

diff --git a/R/module-pickerGroup.R b/R/module-pickerGroup.R
@@ -188,7 +188,7 @@ pickerGroupUI <- function(id, params, label = NULL, btn_label = "Reset filters",
     actionLink(
       inputId = ns("reset_all"),
       label = btn_label,
-      icon = icon("remove"),
+      icon = icon("xmark"),
       style = "float: right;"
     )
   )

diff --git a/R/module-selectizeGroup.R b/R/module-selectizeGroup.R
@@ -61,7 +61,7 @@ selectizeGroupUI <- function(id, params, label = NULL, btn_label = "Reset filter
       actionLink(
         inputId = ns("reset_all"),
         label = btn_label,
-        icon = icon("times"),
+        icon = icon("xmark"),
         style = "float: right;"
       )
     )
@@ -94,7 +94,7 @@ selectizeGroupUI <- function(id, params, label = NULL, btn_label = "Reset filter
       actionLink(
         inputId = ns("reset_all"),
         label = btn_label,
-        icon = icon("times"),
+        icon = icon("xmark"),
         style = "float: right;"
       )
     )

diff --git a/R/sw-dropdown.R b/R/sw-dropdown.R
@@ -59,7 +59,7 @@
 #'                 value = 3,
 #'                 min = 1, max = 9),
 #'
-#'     style = "unite", icon = icon("cog"),
+#'     style = "unite", icon = icon("gear"),
 #'     status = "danger", width = "300px",
 #'     animate = animateOptions(
 #'       enter = animations$fading_entrances$fadeInLeftBig,
@@ -215,7 +215,7 @@ dropdown <- function(..., style = "default", status = "default",
 #'
 #' dropdown(
 #'  "Your contents goes here ! You can pass several elements",
-#'  circle = TRUE, status = "danger", icon = icon("cog"), width = "300px",
+#'  circle = TRUE, status = "danger", icon = icon("gear"), width = "300px",
 #'  animate = animateOptions(enter = "fadeInDown", exit = "fadeOutUp", duration = 3)
 #' )
 #'

diff --git a/R/useShinydashboardPlus.R b/R/useShinydashboardPlus.R
@@ -41,7 +41,7 @@
 #'      boxDropdownItem("Link to google", href = "http://www.google.com"),
 #'      boxDropdownItem("item 2", href = "#"),
 #'      dropdownDivider(),
-#'      boxDropdownItem("item 3", href = "#", icon = icon("th"))
+#'      boxDropdownItem("item 3", href = "#", icon = icon("table-cells"))
 #'    ),
 #'    sidebar = boxSidebar(
 #'      startOpen = TRUE,

diff --git a/R/vertical-tab.R b/R/vertical-tab.R
@@ -171,7 +171,7 @@ verticalTabPanel <- function(title, ..., value = title, icon = NULL, box_height
 #'       verticalTabsetPanel(
 #'         id = "TABS",
 #'         verticalTabPanel(
-#'           title = "Title 1", icon = icon("home", "fa-2x"),
+#'           title = "Title 1", icon = icon("house", "fa-2x"),
 #'           "Content panel 1"
 #'         ),
 #'         verticalTabPanel(

diff --git a/examples/checkboxGroupButtons.R b/examples/checkboxGroupButtons.R
@@ -24,7 +24,7 @@ ui <- fluidPage(
     label = "With icons:",
     choices = names(mtcars),
     checkIcon = list(
-      yes = icon("check-square"),
+      yes = icon("square-check"),
       no = icon("square-o")
     )
   ),

diff --git a/examples/disable-buttons.R b/examples/disable-buttons.R
@@ -14,7 +14,7 @@ ui <- fluidPage(
     choices = setNames(1:6, head(month.name)),
     label = "Radio buttons",
     checkIcon = list(
-      yes = icon("check-square"),
+      yes = icon("square-check"),
       no = icon("square-o")
     )
   ),

diff --git a/examples/ex-stati-card.R b/examples/ex-stati-card.R
@@ -9,7 +9,7 @@ ui <- fluidPage(
   fluidRow(
     column(
       width = 3,
-      statiCard(12, "Subtitle", icon("home")),
+      statiCard(12, "Subtitle", icon("house")),
       statiCard(
         93, "Animated card", icon("users"),
         background = "deepskyblue",
@@ -35,7 +35,7 @@ ui <- fluidPage(
     ),
     column(
       width = 3,
-      statiCard(12, "No animation", icon("home"), color = "firebrick")
+      statiCard(12, "No animation", icon("house"), color = "firebrick")
     ),
     column(
       width = 3,
@@ -50,13 +50,13 @@ ui <- fluidPage(
       statiCard(
         "123456 something very very long",
         "Long value text with icon",
-        icon = icon("tachometer-alt"),
+        icon = icon("gauge"),
         left = TRUE
       ),
       statiCard(
         "123456 something very very long",
         "Long value text with icon right",
-        icon = icon("tasks")
+        icon = icon("list-check")
       )
     )
   )
@@ -85,7 +85,7 @@ server <- function(input, output, session) {
     statiCard(
       format(sample.int(1e6, 1), big.mark = " "),
       "Total spend",
-      icon("shopping-cart"),
+      icon("cart-shopping"),
       left = TRUE,
       animate = TRUE
     )

diff --git a/examples/prettyToggle.R b/examples/prettyToggle.R
@@ -30,7 +30,7 @@ ui <- fluidPage(
         inputId = "toggle2",
         label_on = "Yes!", icon_on = icon("check"),
         status_on = "info", status_off = "warning",
-        label_off = "No..", icon_off = icon("remove")
+        label_off = "No..", icon_off = icon("xmark")
       ),
       verbatimTextOutput(outputId = "res2")
     ),
@@ -89,7 +89,7 @@ ui <- fluidPage(
     inputId = "toggle3",
     label_on = "",
     label_off = "",
-    icon_on = icon("volume-up", lib = "glyphicon"),
+    icon_on = icon("volume-high", lib = "glyphicon"),
     icon_off = icon("volume-off", lib = "glyphicon"),
     status_on = "primary",
     status_off = "default",

diff --git a/examples/radioGroupButtons.R b/examples/radioGroupButtons.R
@@ -24,7 +24,7 @@ ui <- fluidPage(
     label = "With icons:",
     choices = names(mtcars),
     checkIcon = list(
-      yes = icon("check-square"),
+      yes = icon("square-check"),
       no = icon("square-o")
     )
   ),

diff --git a/examples/show_alert.R b/examples/show_alert.R
@@ -11,7 +11,7 @@ ui <- fluidPage(
   actionButton(
     inputId = "error",
     label = "Launch an error sweet alert",
-    icon = icon("remove")
+    icon = icon("xmark")
   ),
   actionButton(
     inputId = "sw_html",

diff --git a/examples/show_toast.R b/examples/show_toast.R
@@ -16,12 +16,12 @@ ui <- fluidPage(
   actionButton(
     inputId = "error",
     label = "Show error toast",
-    icon = icon("remove")
+    icon = icon("xmark")
   ),
   actionButton(
     inputId = "warning",
     label = "Show warning toast",
-    icon = icon("exclamation-triangle")
+    icon = icon("triangle-exclamation")
   ),
   actionButton(
     inputId = "info",

diff --git a/examples/textInputIcon.R b/examples/textInputIcon.R
@@ -12,13 +12,13 @@ ui <- fluidPage(
       textInputIcon(
         inputId = "ex1",
         label = "With an icon",
-        icon = icon("user-circle")
+        icon = icon("circle-user")
       ),
       verbatimTextOutput("res1"),
       textInputIcon(
         inputId = "ex2",
         label = "With an icon (right)",
-        icon = list(NULL, icon("user-circle"))
+        icon = list(NULL, icon("circle-user"))
       ),
       verbatimTextOutput("res2"),
       textInputIcon(

diff --git a/examples/updatePrettyCheckboxGroup.R b/examples/updatePrettyCheckboxGroup.R
@@ -13,7 +13,7 @@ ui <- fluidPage(
         label = "Update my value!",
         choices = month.name[1:4],
         status = "danger",
-        icon = icon("remove")
+        icon = icon("xmark")
       ),
       verbatimTextOutput(outputId = "res1"),
       br(),

diff --git a/examples/updatePrettyRadioButtons.R b/examples/updatePrettyRadioButtons.R
@@ -13,7 +13,7 @@ ui <- fluidPage(
         label = "Update my value!",
         choices = month.name[1:4],
         status = "danger",
-        icon = icon("remove")
+        icon = icon("xmark")
       ),
       verbatimTextOutput(outputId = "res1"),
       br(),

diff --git a/examples/useSweetAlert.R b/examples/useSweetAlert.R
@@ -16,7 +16,7 @@ if (interactive()) {
     actionButton(
       inputId = "error",
       label = "Launch an error sweet alert",
-      icon = icon("remove")
+      icon = icon("xmark")
     ),
     actionButton(
       inputId = "sw_html",

diff --git a/examples/vertical-tab.R b/examples/vertical-tab.R
@@ -13,7 +13,7 @@ ui <- fluidPage(
         id = "my_vertical_tab_panel",
         verticalTabPanel(
           title = "Title 1",
-          icon = icon("home", "fa-2x"),
+          icon = icon("house", "fa-2x"),
           "Content panel 1"
         ),
         verticalTabPanel(

diff --git a/inst/examples/checkboxGroupButtons/ui.R b/inst/examples/checkboxGroupButtons/ui.R
@@ -157,7 +157,7 @@ fluidPage(
         choices = c("Choice 1", "Choice 2", "Choice 3"),
         checkIcon = list(
           yes = icon("check"),
-          no = icon("times")
+          no = icon("xmark")
         )
       ),
       verbatimTextOutput(outputId = "res13")

diff --git a/inst/examples/dropdown/ex-sw-dropdown.R b/inst/examples/dropdown/ex-sw-dropdown.R
@@ -11,7 +11,7 @@ ui <- fluidPage(
     shinyWidgets::pickerInput(inputId = 'xcol', label = 'X Variable', choices = names(iris)),
     selectInput(inputId = 'ycol', label = 'Y Variable', choices = names(iris), selected = names(iris)[[2]]),
     sliderInput(inputId = 'clusters', label = 'Cluster count', value = 3, min = 1, max = 9),
-    style = "material-circle", icon = icon("cog"), status = "danger",
+    style = "material-circle", icon = icon("gear"), status = "danger",
     animate = animateOptions(enter = animations$zooming_entrances$zoomInDown, exit = animations$zooming_exits$zoomOutUp, duration = 1)
   ),
   plotOutput(outputId = 'plot1')

diff --git a/inst/examples/radioGroupButtons/ui.R b/inst/examples/radioGroupButtons/ui.R
@@ -134,7 +134,7 @@ fluidPage(
         choices = c("Choice 1", "Choice 2", "Choice 3"),
         checkIcon = list(
           yes = icon("check"),
-          no = icon("times")
+          no = icon("xmark")
         )
       ),
       verbatimTextOutput(outputId = "res13")

diff --git a/inst/examples/shinyWidgets/code_dropdown.R b/inst/examples/shinyWidgets/code_dropdown.R
@@ -24,7 +24,7 @@ ui <- fluidPage(
                 value = 3,
                 min = 1, max = 9),
 
-    style = "unite", icon = icon("cog"),
+    style = "unite", icon = icon("gear"),
     status = "danger", width = "300px",
     animate = animateOptions(
       enter = animations$fading_entrances$fadeInLeftBig,

diff --git a/inst/examples/shinyWidgets/code_dropdownButton.R b/inst/examples/shinyWidgets/code_dropdownButton.R
@@ -24,7 +24,7 @@ ui <- fluidPage(
                 max = 9),
 
     circle = TRUE, status = "danger",
-    icon = icon("cog"), width = "300px",
+    icon = icon("gear"), width = "300px",
 
     tooltip = tooltipOptions(title = "Click to see inputs !")
   ),