shinyWidgets::pickerInput with images

app.R

library(shiny)
library(magrittr)

# images for picker input stored in www/img/ from the root app directory
imgs <- fs::dir_ls("www/img") %>% stringr::str_remove("www/") # remove www/ from filepath
img_name <- fs::path_file(imgs) %>% fs::path_ext_remove() # get image name without extension 

select_choice_img <- function(img, text) {
  shiny::HTML(paste(
    tags$img(src=img, width=30, height=22),
    text
  ))
}

ui <- fluidPage(
  shinyWidgets::pickerInput(
    inputId = "select", 
    label = "Select", 
    choices = img_name,
    choicesOpt = list(content = purrr::map2(imgs, img_name, select_choice_img))
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)