Updated fontawesome icon names from v4 to v6

dreamRs · Jul 29, 2022 · 5e81a10 · 5e81a10
1 parent 29ac6e3
commit 5e81a10
Show file tree

Hide file tree

Showing 6 changed files with 9 additions and 9 deletions.
diff --git a/R/input-airDatepicker.R b/R/input-airDatepicker.R
@@ -197,15 +197,15 @@ airDatepickerInput <- function(inputId,
           tags$div(
             class = "btn action-button input-group-addon",
             id = paste0(inputId, "_button"),
-            icon("calendar")
+            icon("calendar-days")
           )
         },
         tagAir,
         if (identical(addon, "right")) {
           tags$div(
             class = "btn action-button input-group-addon",
             id = paste0(inputId, "_button"),
-            icon("calendar")
+            icon("calendar-days")
           )
         }
       )

diff --git a/R/useShinydashboard.R b/R/useShinydashboard.R
@@ -30,7 +30,7 @@
 #'       "Orders", uiOutput("orderNum2"), "Subtitle", icon = icon("credit-card")
 #'     ),
 #'     infoBox(
-#'       "Approval Rating", "60%", icon = icon("line-chart"), color = "green",
+#'       "Approval Rating", "60%", icon = icon("chart-line"), color = "green",
 #'       fill = TRUE
 #'     ),
 #'     infoBox(
@@ -46,7 +46,7 @@
 #'     ),
 #'     valueBox(
 #'       tagList("60", tags$sup(style="font-size: 20px", "%")),
-#'       "Approval Rating", icon = icon("line-chart"), color = "green"
+#'       "Approval Rating", icon = icon("chart-line"), color = "green"
 #'     ),
 #'     valueBox(
 #'       htmlOutput("progress"), "Progress", icon = icon("users"), color = "purple"

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

diff --git a/examples/disable-buttons.R b/examples/disable-buttons.R
@@ -15,7 +15,7 @@ ui <- fluidPage(
     label = "Radio buttons",
     checkIcon = list(
       yes = icon("square-check"),
-      no = icon("square-o")
+      no = icon("square")
     )
   ),
 

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

diff --git a/tests/testthat/test-input-icon.R b/tests/testthat/test-input-icon.R
@@ -7,7 +7,7 @@ test_that("textInputIcon works", {
   tag <- textInputIcon(
     inputId = "ID",
     label = "With an icon",
-    icon = shiny::icon("user-circle-o")
+    icon = shiny::icon("circle-user")
   )
 
   expect_is(tag, "shiny.tag")
@@ -36,7 +36,7 @@ test_that("textInputIcon works", {
     inputId = "ID",
     label = "With an icon",
     value = 0,
-    icon = shiny::icon("user-circle-o")
+    icon = shiny::icon("circle-user")
   )
 
   expect_is(tag, "shiny.tag")