How to manually order the selected values in Shiny selectInput()

Question

I have the following Shiny code:

library(shiny)

my_choices <- c( "a", "b", "c", "d")


ui <- fluidPage(
  selectInp