tests/manual_tests/shiny-test-fa_i_html_dep_unminified.R

In rstudio/fontawesome: Easily Work with 'Font Awesome' Icons

library(shiny)
library(DT)
library(ggplot2)
library(fontawesome)

unminified_css_dep <-
  htmltools::htmlDependency(
    name = "font-awesome",
    version = fontawesome:::fa_version,
    src = "fontawesome",
    package = "fontawesome",
    stylesheet = c("css/all.css", "css/v4-shims.css")
  )

ui <- fluidPage(

  titlePanel("Basic DataTable"),

  # Create a new Row in the UI for selectInputs
  fluidRow(

    column(
      width = 4,
      selectInput(
        inputId = "man",
        label = tags$p(fa_i("car", html_dependency = unminified_css_dep), "Manufacturer:"),
        choices = c(
          "All",
          unique(as.character(mpg$manufacturer))))
    ),

    column(
      width = 4,
      selectInput(
        inputId = "trans",
        label = tags$p(fa_i("car", html_dependency = unminified_css_dep), "Transmission:"),
        choices = c(
          "All",
          unique(as.character(mpg$trans))))
    ),

    column(
      width = 4,
      selectInput(
        inputId = "cyl",
        label = tags$p(fa_i("car", html_dependency = unminified_css_dep), "Cylinders:"),
        choices = c(
          "All",
          unique(as.character(mpg$cyl))))
    )
  ),

  # Create a new row for the table.
  fluidRow(
    dataTableOutput("table")
  )
)

server <- function(input, output) {

  # Filter data based on selections
  output$table <- renderDataTable({

    data <- mpg
    if (input$man != "All") {
      data <- data[data$manufacturer == input$man,]
    }
    if (input$cyl != "All") {
      data <- data[data$cyl == input$cyl,]
    }
    if (input$trans != "All") {
      data <- data[data$trans == input$trans,]
    }
    data
  })
}

shinyApp(ui = ui, server = server)