mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-14 09:28:02 -05:00
ecb21df941
* Update rituals.yaml * update docs links * Fix 404 link * http://fontawesome.io to https://fontawesome.com * Update links (GitHub Actions) * Update NEWS.md * Only check urls in rc branches * missing paren Co-authored-by: schloerke <schloerke@users.noreply.github.com>
66 lines
2.5 KiB
R
66 lines
2.5 KiB
R
#' Create a submit button
|
|
#'
|
|
#' Create a submit button for an app. Apps that include a submit
|
|
#' button do not automatically update their outputs when inputs change,
|
|
#' rather they wait until the user explicitly clicks the submit button.
|
|
#' The use of `submitButton` is generally discouraged in favor of
|
|
#' the more versatile [actionButton()] (see details below).
|
|
#'
|
|
#' Submit buttons are unusual Shiny inputs, and we recommend using
|
|
#' [actionButton()] instead of `submitButton` when you
|
|
#' want to delay a reaction.
|
|
#' See [this
|
|
#' article](https://shiny.rstudio.com/articles/action-buttons.html) for more information (including a demo of how to "translate"
|
|
#' code using a `submitButton` to code using an `actionButton`).
|
|
#'
|
|
#' In essence, the presence of a submit button stops all inputs from
|
|
#' sending their values automatically to the server. This means, for
|
|
#' instance, that if there are *two* submit buttons in the same app,
|
|
#' clicking either one will cause all inputs in the app to send their
|
|
#' values to the server. This is probably not what you'd want, which is
|
|
#' why submit button are unwieldy for all but the simplest apps. There
|
|
#' are other problems with submit buttons: for example, dynamically
|
|
#' created submit buttons (for example, with [renderUI()]
|
|
#' or [insertUI()]) will not work.
|
|
#'
|
|
#' @param text Button caption
|
|
#' @param icon Optional [icon()] to appear on the button
|
|
#' @param width The width of the button, e.g. `'400px'`, or `'100%'`;
|
|
#' see [validateCssUnit()].
|
|
#' @return A submit button that can be added to a UI definition.
|
|
#'
|
|
#' @family input elements
|
|
#'
|
|
#' @examples
|
|
#' if (interactive()) {
|
|
#'
|
|
#' shinyApp(
|
|
#' ui = basicPage(
|
|
#' numericInput("num", label = "Make changes", value = 1),
|
|
#' submitButton("Update View", icon("refresh")),
|
|
#' helpText("When you click the button above, you should see",
|
|
#' "the output below update to reflect the value you",
|
|
#' "entered at the top:"),
|
|
#' verbatimTextOutput("value")
|
|
#' ),
|
|
#' server = function(input, output) {
|
|
#'
|
|
#' # submit buttons do not have a value of their own,
|
|
#' # they control when the app accesses values of other widgets.
|
|
#' # input$num is the value of the number widget.
|
|
#' output$value <- renderPrint({ input$num })
|
|
#' }
|
|
#' )
|
|
#' }
|
|
#' @export
|
|
submitButton <- function(text = "Apply Changes", icon = NULL, width = NULL) {
|
|
div(
|
|
tags$button(
|
|
type="submit",
|
|
class="btn btn-primary",
|
|
style = css(width = validateCssUnit(width)),
|
|
list(icon, text)
|
|
)
|
|
)
|
|
}
|