r - 日付の設定時に airDatePickerInput が期待どおりに機能しない

Question

Shiny で関数airDatePickerInputを使用して更新しようとするupdateAirDateInputと、日付が正しく更新されません。

updateAirDateInput日付を に設定するように指示すると、日付"2020-02-01"が に設定され、"2020-01-01"希望より 1 日少なくなります。どうして？？

これはバグですか？希望日 + 1 をインクリメントする必要がありますか?

これは私が話していることを示す例です。ボタンを押して日付を設定する"1999-01-01"と、アプリは日付を誤って最終日に設定します1998

library(shiny)
library(shinyWidgets)

shinyApp(
    ui = fluidPage(
        fluidRow(
            column(
                width = 12,
                htmlOutput("someDate", inline = TRUE)          
            )
        ),
        fluidRow(
            column(
                width = 12,
                actionButton("b1", "Update Date")
            )
        )
    ),
    server = function(input, output, session) {
        #data$date <- format(as.Date(data$date, origin="1970-01-01"), "%m/%d/%Y")
        output$someDate <- renderUI({
            airDatepickerInput(
                "someDate",
                label = "Date",
                value = NULL,
                multiple = FALSE,
                range = FALSE,
                timepicker = FALSE,
                separator = " - ",
                placeholder = NULL,
                dateFormat = "yyyy-mm-dd",
                minDate = NULL,
                maxDate = NULL,
                disabledDates = NULL,
                view = c("days", "months", "years"),
                minView = c("days", "months", "years"),
                monthsField = c("monthsShort", "months"),
                clearButton = FALSE,
                todayButton = FALSE,
                autoClose = FALSE,
                timepickerOpts = timepickerOptions(),
                position = NULL,
                update_on = c("change", "close"),
                addon = c("right", "left", "none"),
                language = "en",
                inline = FALSE,
                width = NULL
            )
        })   
        observeEvent(input$b1, {
            updateAirDateInput(session, "someDate", value = as.character("1999-01-01"))
        })
    }
)