I think a single `class` argument here is enough instead of `style` + `additionalClass`, e.g.

```
actionButton <- function(inputId, label, class = NULL) {
  tags$button(id=inputId, type="button", class=paste(c("btn action-button", class), collapse = " "), label)
}
```

then you can add whatever classes onto the button you want