shiny-input.R

library(shiny)
ui <- fluidPage(
  titlePanel("Shiny updateInput"),  
  actionButton(
    "input_update",
    label = "Utilitzo updateInput",
    icon = icon("arrow-up")
  ),
  actionButton(
    "click_button",
    label = "Actualitzo valor"
  )
)
server <- function(input, output, session) {
  observeEvent(input$click_button, {
    clicks <- input$click_button
    icon_status_up <-
      is.null(clicks) || clicks %% 2 == 0
    icon_name <- if(icon_status_up) {
      "arrow-up"
    } else {
      "arrow-down"
    }
    updateActionButton(
      session,
      "input_update",
        icon = icon(icon_name)
    )
  })
}
shinyApp(ui, server)