|
|
|
|
|
|
|
|
|
|
|
|
|
|
#' Modified Text Area Input |
|
|
#' Modified Text Area Input |
|
|
#' |
|
|
#' |
|
|
|
|
|
#' Standard [shiny::textAreaInput()] with additional `is_code` parameter, added |
|
|
|
|
|
#' code font style for the input text and with `autocomplete`, `autocorrect`, |
|
|
|
|
|
#' `autocapitalize` and `spellcheck` set to `off` or `false`. |
|
|
|
|
|
#' |
|
|
#' @inheritParams shiny::textAreaInput |
|
|
#' @inheritParams shiny::textAreaInput |
|
|
|
|
|
#' @param is_code Should the text input be considered verbatim code input? |
|
|
textAreaInputAlt <- function(inputId, label, value = "", width = NULL, height = NULL, |
|
|
textAreaInputAlt <- function(inputId, label, value = "", width = NULL, height = NULL, |
|
|
cols = NULL, rows = NULL, placeholder = NULL, resize = NULL, |
|
|
cols = NULL, rows = NULL, placeholder = NULL, resize = NULL, |
|
|
is_code = TRUE) { |
|
|
is_code = TRUE) { |
|
|
`%AND%` <- shiny:::`%AND%` |
|
|
|
|
|
|
|
|
`%AND%` <- getFromNamespace("%AND%", "shiny") |
|
|
|
|
|
|
|
|
value <- shiny::restoreInput(id = inputId, default = value) |
|
|
value <- shiny::restoreInput(id = inputId, default = value) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#' Modified Text Input |
|
|
#' Modified Text Input |
|
|
#' |
|
|
#' |
|
|
|
|
|
#' Standard [shiny::textInput()] with additional `width` parameter, added code |
|
|
|
|
|
#' font style for the input text and with `autocomplete`, `autocorrect`, |
|
|
|
|
|
#' `autocapitalize` and `spellcheck` set to `off` or `false`. |
|
|
|
|
|
#' |
|
|
#' @inheritParams shiny::textInput |
|
|
#' @inheritParams shiny::textInput |
|
|
|
|
|
#' @param width Width of `shiny-input-container` div. |
|
|
textInputCode <- function(inputId, label, value = "", width = NULL, |
|
|
textInputCode <- function(inputId, label, value = "", width = NULL, |
|
|
placeholder = NULL) { |
|
|
placeholder = NULL) { |
|
|
`%AND%` <- shiny:::`%AND%` |
|
|
|
|
|
|
|
|
`%AND%` <- getFromNamespace("%AND%", "shiny") |
|
|
value <- shiny::restoreInput(id = inputId, default = value) |
|
|
value <- shiny::restoreInput(id = inputId, default = value) |
|
|
|
|
|
|
|
|
shiny::div(class = "form-group shiny-input-container", |
|
|
shiny::div(class = "form-group shiny-input-container", |