selectInput not working anymore within renderDataTable in 1.8.0 about shiny

[Arthfael]

Clearly I had not diagnosed the problem well: this is a problem of how selectInput interacts not with sapply,
but with DT:

# Testing interaction with sapply without table:
Values <- list(Test_1 = NA, Test_2 = NA)
ui <- fluidPage(
  titlePanel(tag("u", "Test"), "Test"),
  h3("Is just sapply working?"),
  selectInput("Test_1", "", as.character(1:5), "1", width = "100px"),
  selectInput("Test_2", "", as.character(1:5), "1", width = "100px"),
  actionButton("saveBtn", "Save"),
  br(),
)
server <- function(input, output, session) {
  sapply(1:2, function(x) {
    id <- paste0("Test_", x)
    observeEvent(input[[id]], {
      cat(input[[id]], "\n")
      Values[[id]] <<- input[[id]]
    }, ignoreNULL = FALSE)
  })
  observeEvent(input$saveBtn, { stopApp() })
  session$onSessionEnded(function() { stopApp() })
}
print(shinyApp(ui, server))
Values
# -> This works.

As a consequence, I have renamed the thread.

[stla]

See #3979
There are two options: either you set selectize=FALSE in selectInput. Or if you want to use selectize, you have to get and include the HTML dependency and to initialise the select inputs - see the above linked issue.