emoji completion hack

hack.R

.original.rs.getCompletionsFile <- .rs.getCompletionsFile

assign( ".rs.getCompletionsFile", function (token, path = getwd(), quote = FALSE, directoriesOnly = FALSE) {
  if( grepl( ".*[:]", token ) ){
    tok   <- sub( ".*[:]", "", token)
    start <- sub( "[:].*", "", token)
    .rs.makeCompletions(
      token = token , results = paste0( start, emo::ji_completion(tok) ) ,
      excludeOtherCompletions = TRUE, type= .rs.acCompletionTypes$STRING,
      quote = FALSE
    )
  } else {
    .original.rs.getCompletionsFile( token, path, quote, directoriesOnly )
  }
}, as.environment("tools:rstudio") )