diff --git a/DESCRIPTION b/DESCRIPTION index 897d2201..af583bb5 100755 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -14,6 +14,7 @@ Authors@R: c(person("Filip", "Stachura", email = "filip@appsilon.com", role = "a person("Pedro", "Manuel Coutinho da Silva", email = "pedro@appsilon.com", role = "ctb"), person("Kamil", "Żyła", email = "kamil@appsilon.com", role = "ctb"), person("Rabii", "Bouhestine", role = "ctb"), + person("Federico", "Rivandeira", email = "federico@appsilon.com", role = "ctb"), person(family = "Appsilon Sp. z o.o.", role = c("cph"))) Description: Creating a great user interface for your Shiny apps can be a hassle, especially if you want to work purely in R and don't want to diff --git a/R/input.R b/R/input.R index 7ced869f..21923b61 100644 --- a/R/input.R +++ b/R/input.R @@ -190,7 +190,6 @@ numeric_input <- function(input_id, label, value = NULL, min = NA, max = NA, ste if (!is.numeric(value) & !grepl("^\\d*(\\.\\d*|)$", value)) stop("Non-numeric input detected") } - input_tag <- tags$input(id = input_id, value = value, type = "number", placeholder = placeholder) if (!is.na(min)) input_tag$attribs$min <- min if (!is.na(max)) input_tag$attribs$max <- max