Running examples in ‘shinySelect-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: selectControlInput
> ### Title: Select control widget
> ### Aliases: selectControlInput
> 
> ### ** Examples
> 
> # an example using KaTeX ####
> library(shiny)
> library(shinySelect)
> library(bslib)

Attaching package: ‘bslib’

The following object is masked from ‘package:utils’:

    page

> 
> choices <- HTMLchoices(
+   values = list("alpha", "beta", "gammma"),
+   labels = list(katex("\\alpha"), katex("\\beta"), katex("\\gamma"))
+ )
> 
> ui <- fluidPage(
+   theme = bs_theme(version = 4),
+   titlePanel("KaTeX example"),
+   selectControlInput(
+     "select",
+     label = tags$h1("Make a choice", style="color: red;"),
+     choices = choices,
+     selected = "alpha",
+     multiple = FALSE,
+     animated = TRUE
+   ),
+   br(),
+   verbatimTextOutput("textOutput")
+ )
> 
> server <- function(input, output, session) {
+   output[["textOutput"]] <- renderPrint({
+     sprintf("You selected: %s.", input[["select"]])
+   })
+ }
> 
> if(interactive()){
+   shinyApp(ui, server)
+ }
> 
> # An example of `sortable = TRUE`, with fontawesome icons ####
> library(shiny)
> library(shinySelect)
> library(bslib)
> library(fontawesome)
> 
> food <- HTMLchoices(
+   labels = list(
+     tags$span(fa_i("hamburger"), "Hamburger"),
+     tags$span(fa_i("pizza-slice"), "Pizza"),
+     tags$span(fa_i("fish"), "Fish")
+   ),
+   values = list("hamburger", "pizza", "fish")
+ )
> 
> styles <- list(
+   borderBottom = "2px solid orange",
+   backgroundColor = list(
+     selected = "cyan",
+     focused = "lemonchiffon",
+     otherwise = "seashell"
+   )
+ )
> 
> ui <- fluidPage(
+   theme = bs_theme(version = 4),
+   titlePanel("Sortable example"),
+   selectControlInput(
+     "select",
+     label = tags$h1("Make a choice", style="color: red;"),
+     optionsStyles = styles,
+     choices = food,
+     selected = "hamburger",
+     multiple = TRUE,
+     sortable = TRUE,
+     animated = TRUE
+   ),
+   br(),
+   verbatimTextOutput("textOutput")
+ )
> 
> server <- function(input, output, session) {
+   output[["textOutput"]] <- renderPrint({
+     sprintf("You selected: %s.", toString(input[["select"]]))
+   })
+ }
> 
> if(interactive()){
+   shinyApp(ui, server)
+ }
> 
> # An example with tooltips ####
> library(shiny)
> library(bslib)
> library(shinySelect)
> 
> data(Countries, package = "jsTreeR")
Error in find.package(package, lib.loc, verbose = verbose) : 
  there is no package called ‘jsTreeR’
Calls: data -> find.package
Execution halted