In case you are still having issues with this, here is an example of the syntax.
library(shiny)
# Dummy data simulating yours
df <- data.frame(stringsAsFactors = FALSE,
description = c("FER-01", "BGR-01", "ZUT-01"))
ui <- fluidPage(
# Application title
titlePanel("Test"),
sidebarLayout(
sidebarPanel(
selectInput(inputId = "external", label = NULL, choices = df$description)
),
mainPanel(
textOutput("selection")
)
)
)
server <- function(input, output) {
output$selection <- renderText({
paste("You have selected", input$external)
})
}
# Run the application
shinyApp(ui = ui, server = server)