# NOT RUN {
### Customizing the submit button
card(
header = "Please pick a flavor",
formInput(
id = NULL,
formGroup(
label = "Ice creams",
radioInput(
id = "flavorChoice",
choices = c("Mint", "Moose tracks", "Marble"),
)
),
submit = submitInput( # <-
label = "Make choice",
block = TRUE
) %>%
background("teal")
)
) %>%
border("teal") %>%
width(50)
# }
Run the code above in your browser using DataLab