inst/shiny-squid/source/utilities/actionButtonLink.R

# create an icon into input label
actionButtonLink <- function (inputId, label, icon = NULL, iconSide, ...) 
{
  if(iconSide == "R"){myList <- list(label, icon)}else{myList <- list(icon, label)} 
  
  tags$button(id = inputId, type = "button", class = "btn action-button btn-primary button-link", 
              myList)
}

Try the squid package in your browser

Any scripts or data that you put into this service are public.

squid documentation built on Jan. 22, 2022, 1:06 a.m.