Skip to content

Commit

Permalink
style: Minor style fixes.
Browse files Browse the repository at this point in the history
  • Loading branch information
jakubnowicki committed Jan 16, 2024
1 parent be7fb03 commit 2148a80
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 1 deletion.
1 change: 1 addition & 0 deletions DESCRIPTION
Expand Up @@ -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
Expand Down
1 change: 0 additions & 1 deletion R/input.R
Expand Up @@ -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
Expand Down

0 comments on commit 2148a80

Please sign in to comment.