Search emojis for text selected in IDE

R/emoji_picker.R

   if (is.null(context)) {
     context <- rstudioapi::getActiveDocumentContext()
   }
+  initial_search <- if (nzchar(context$selection[[1]]$text)) {
+    context$selection[[1]]$text
+  }
   function(input, output, session) {
     shiny::observeEvent(input$close, {
       shiny::stopApp(invisible(input$emoji))
 
     shiny::observe({
       session$sendCustomMessage('update_picker_type', get_picker_type())
+      session$sendCustomMessage("search_emoji", initial_search)
     })
 
     shiny::observeEvent(input$picker_type, {

inst/picker/emoji-picker.js

 }
 
 Shiny.addCustomMessageHandler('bad_emo_ji', showBadEmojiAlert)
+
+function searchEmoji(word) {
+  const searchInput = document.querySelector('input.emoji-picker__search')
+  searchInput.value = ''
+  word.split('').forEach(function(key) {
+    const keyEvent = new KeyboardEvent('keyup', {key})
+    searchInput.value += key
+    searchInput.dispatchEvent(keyEvent)
+  })
+}
+
+Shiny.addCustomMessageHandler('search_emoji', searchEmoji)