Restrict icon/label separator spacing to actionButton() (#4247)

* Follow up to #4242: Restrict icon/label separator spacing to actionButton()

* `yarn build` (GitHub Actions)

* Add spacing only when both icon and label are truthy

* Update snapshot

* `yarn build` (GitHub Actions)

* Slightly more readable JS

* `yarn build` (GitHub Actions)

---------

Co-authored-by: cpsievert <[email protected]>

Author: cpsievert

R/input-action.R

@@ -93,7 +93,10 @@ get_action_children <- function(label, icon) {
     # minimize the chance of breaking existing code.
     tagList(
       icon,
-      tags$span(class = "shiny-icon-separator"),
+      tags$span(
+        class = "shiny-icon-separator",
+        class = if (length(label) > 0) "shiny-icon-spacer"
+      ),
       label
     )
   } else {