Search emojis for text selected in IDE

R/emoji_picker.R

@@ -120,6 +120,9 @@ emoji_picker_server <- function(quick_add = TRUE, context = NULL) {
   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))
@@ -127,6 +130,7 @@ emoji_picker_server <- function(quick_add = TRUE, context = NULL) {
 
     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

@@ -124,3 +124,15 @@ function showBadEmojiAlert(name) {
 }
 
 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)