Sending one value from server

1. Use the getDefaultReactiveDomain()function to recover the current session.
2. Use the sendInputMessage is used to update inputs from the server.

updateCustomTextInput <- function(
  inputId, 
  value = NULL, 
  session = getDefaultReactiveDomain()
) {
  session$sendInputMessage(inputId, message = value)
}