Running examples in 'shinyWidgets-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: stati-card
> ### Title: Minimal statistic cards
> ### Aliases: stati-card statiCard updateStatiCard
> 
> ### ** Examples
> 
> library(shiny)
> library(shinyWidgets)
> 
> 
> ui <- fluidPage(
+ 
+   tags$h2("Stati Card"),
+ 
+   fluidRow(
+     column(
+       width = 3,
+       statiCard(12, "Subtitle", icon("home")),
+       statiCard(
+         93, "Animated card", icon("users"),
+         background = "deepskyblue",
+         color = "white",
+         animate = TRUE,
+         id = "card1"
+       ),
+       actionButton("update1", "Update card above server-side"),
+       statiCard(
+         93, "No animation", icon("users"),
+         background = "deepskyblue",
+         color = "white",
+         id = "card2"
+       ),
+       actionButton("update2", "Update card above server-side")
+     ),
+     column(
+       width = 3,
+       statiCard("$123,456", "Total spend", icon("rocket"), left = TRUE, animate = TRUE),
+       tags$br(),
+       actionButton("show", "Show card (rendered server-side)"),
+       uiOutput(outputId = "card")
+     ),
+     column(
+       width = 3,
+       statiCard(12, "No animation", icon("home"), color = "firebrick")
+     ),
+     column(
+       width = 3,
+       statiCard(
+         "123456 something very very long",
+         "Long value text",
+         icon = NULL,
+         left = TRUE,
+         background = "steelblue",
+         color = "white"
+       ),
+       statiCard(
+         "123456 something very very long",
+         "Long value text with icon",
+         icon = icon("tachometer"),
+         left = TRUE
+       ),
+       statiCard(
+         "123456 something very very long",
+         "Long value text with icon right",
+         icon = icon("tasks")
+       )
+     )
+   )
+ 
+ )
> 
> 
> server <- function(input, output, session) {
+ 
+   observeEvent(input$update1, {
+     updateStatiCard(
+       id = "card1",
+       value = sample.int(200, 1)
+     )
+   })
+ 
+   observeEvent(input$update2, {
+     updateStatiCard(
+       id = "card2",
+       value = sample.int(200, 1)
+     )
+   })
+ 
+   output$card <- renderUI({
+     req(input$show)
+     statiCard(
+ <ERROR: re-encoding failure from encoding 'UTF-8'>
      paste0(format(sample.int(1e6, 1), big.mark = " "), "â...
+       "Total spend",
Error: unexpected symbol in:
"      paste0(format(sample.int(1e6, 1), big.mark = " "), "â...
      "Total"
Execution halted