How to dynamically change the values of inputs based on data from a reactive environment?

Question

Given the following shiny code:

library(shiny)
library(data.table)

df_fr<-data.table(x1=c("a","a","a","b","b&