R Shiny dateInput не подчиняется максимально допустимой дате, когда NA по умолчанию и минимально допустимой дате

Question

Желаемый результат

Я хочу использовать shiny::dateInput() включить средство выбора даты в моем приложении Shiny с:

• Нет даты по умолчанию
• Минимально допустимая дата
• Максимально допустимая дата.

Проблема

Средство выбора даты не подчиняется максимально допустимой дате.

Минимальное представление

library(shiny)

ui <- fluidPage(
    dateInput("date_in", "Choose date", value = as.Date(NA), 
              min = "2019-10-20", max = "2019-10-30")
)

shinyApp(ui = ui, server = function(input, output) {})

Аналогичный код, который работает

Средство выбора даты подчиняется аргументу max, когда:

• Я удаляю value = as.Date(NA), установив значение по умолчанию на сегодняшний день.
• Я удаляю min = "2019-10-20", удаляя минимально допустимую дату.

Информация о системе

• Версия R: 3.5.3 (редактирование: обновлено до 3.6.1,проблема не устранена)
• версия RStudio: 1.2.1335 (редактирование: обновление до 1.2.5001, проблема не устранена)
• блестящая версия: 1.4.0

редактировать

Как оказалось, такая же проблема возникает с dateRangeInput(). Следующий код не подчиняется аргументу max.

library(shiny)

ui <- fluidPage(
    dateRangeInput("date_in", "Choose date",
                   start = as.Date(NA), end = as.Date(NA),
                   min = "2019-10-20", max = "2019-10-30")
)

shinyApp(ui = ui, server = function(input, output) {})

При внесении любого из следующих изменений код работает должным образом, аналогично dateInput().

• Пропускаргументы start и end (таким образом, по умолчанию оба на сегодняшний день)
• Пропуск аргумента min.