explicitly set number to null instead of implicitly for better documentation

This commit is contained in:
Timothy Mastny
2018-06-14 16:04:24 -05:00
parent a999bf389c
commit 881fe0cfce
2 changed files with 2 additions and 2 deletions

View File

@@ -89,7 +89,7 @@ sliderInput <- function(inputId, label, min, max, value, step = NULL,
dataType <- getSliderType(min, max, value)
if (is.null(timeFormat)) {
timeFormat <- switch(dataType, date = "%F", datetime = "%F %T")
timeFormat <- switch(dataType, date = "%F", datetime = "%F %T", number = NULL)
}
# Restore bookmarked values here, after doing the type checking, because the

View File

@@ -431,7 +431,7 @@ updateSliderInput <- function(session, inputId, label = NULL, value = NULL,
dataType <- getSliderType(min, max, value)
if (is.null(timeFormat)) {
timeFormat <- switch(dataType, date = "%F", datetime = "%F %T")
timeFormat <- switch(dataType, date = "%F", datetime = "%F %T", number = NULL)
}
if (dataType == "date" || dataType == "datetime") {