R Shiny selectizeInput cuts selected keywords in choices list

I have a disturbing problem with selectizeInput. Whenever I search for several key words, the words are cut or deleted completely. In the minimal example below, when I fill in "producer price", the word "Producer" is completely deleted in each choice in the list.

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectizeInput(inputId = "id_category",
                     label = "Category (multiple answers possible)",
                     multiple = TRUE,
                     choices = c("Producer price oil",
                                 "Producer price pulp",
                                 "Producer price oat",
                                 "Import price oil")),
    ),
    mainPanel()
  )
)

server <- function(input, output) {
}

shinyApp(ui, server)