Unspecified value for dateInput() and min/max parameter set breaks server side uiOutput()

[trbailey326]

This is related to #896. I wanted to have no initial dateInput() value AND set a min value. I have other dynamic UI elements in my code. When I set min with value = as.Date(NA), it breaks server side rendered UI elements. Below is a MWE:

library(shiny)

ui <- fluidPage(

    titlePanel("Test DateInput Bug"),

    sidebarLayout(
        
        sidebarPanel(
            
            dateInput("date", "Date Input", value = as.Date(NA), 
                      # This breaks all server side UI output for some reason...
                      min = Sys.Date(),
                      daysofweekdisabled = c(0, 6)),
            
            radioButtons("test", "Show Text Input", choices = c("No", "Yes"), selected = "No"),
            
            uiOutput("testText")
        ),
        
        mainPanel()
    )
)
server <- function(input, output) {
    output$testText <- renderUI ({
        if (input$test == "Yes") {
            textInput("test", "Testing if this is effected by dateInput() min and max parameters", "")
        }
    })
}
shinyApp(ui = ui, server = server)