shiny-javascript.R

library(shiny)
library(shinyjs)
ui <- fluidPage(
  useShinyjs(),
  titlePanel("Shiny JavaScript"),
  actionButton(
    "javascript_update",
    label = "Utilitzo javascript",
    icon = icon("arrow-up")
  ),
  actionButton(
    "click_button",
    label = "Actualitza botó",
    onclick = "
    $('#javascript_update > i').toggleClass('fa-arrow-up');
    $('#javascript_update > i').toggleClass('fa-arrow-down');
    "
  )
)
server <- function(input, output, session) {}
shinyApp(ui, server)