From 5e81a10ecc0246b02843844eaf647f9171e6277a Mon Sep 17 00:00:00 2001
From: Stefan Werner <stefan.werner@mms.marposs.com>
Date: Fri, 29 Jul 2022 14:51:18 +0200
Subject: [PATCH] Updated fontawesome icon names from v4 to v6

---
 R/input-airDatepicker.R          | 4 ++--
 R/useShinydashboard.R            | 4 ++--
 examples/checkboxGroupButtons.R  | 2 +-
 examples/disable-buttons.R       | 2 +-
 examples/radioGroupButtons.R     | 2 +-
 tests/testthat/test-input-icon.R | 4 ++--
 6 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/R/input-airDatepicker.R b/R/input-airDatepicker.R
index 134ac33e..fbadef7d 100644
--- a/R/input-airDatepicker.R
+++ b/R/input-airDatepicker.R
@@ -197,7 +197,7 @@ airDatepickerInput <- function(inputId,
           tags$div(
             class = "btn action-button input-group-addon",
             id = paste0(inputId, "_button"),
-            icon("calendar")
+            icon("calendar-days")
           )
         },
         tagAir,
@@ -205,7 +205,7 @@ airDatepickerInput <- function(inputId,
           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
index a9b668fe..9b09b522 100644
--- 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
index 7cef0da2..3eb9af80 100644
--- 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
index ef1cfbb7..94563a2b 100644
--- 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
index 262a5710..89752597 100644
--- 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
index 574d3976..69fc8a65 100644
--- 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")