Как ввести переменную в shinydashboard двумя разными способами?

Question

Я хотел бы ввести переменную (слово) в shinydashboard двумя различными способами: 1) искать это слово в поле 2) щелкнуть по графику

В этом примере ниже, я хотел бы выберите слово «Это», ищите его в поле (уже реализовано), а также, щелкнув по этому слову на графике. В последнем случае мне бы хотелось, чтобы слово в поле было изменено на «это» (из другого слова, которое может быть выбрано ранее).

library(dplyr)
library(shiny)
library(ggplot2)
library(shinydashboard)

rm(list=ls())

wordlist<-c("This","example","not")
df<-data.frame(word=wordlist,weight=c(3,2,1))

plot<-df%>%
  arrange(weight) %>%    
  mutate(name=factor(word), levels=word) %>%   # This trick update the factor levels
  ggplot( aes(x=name, y=weight)) +
  geom_segment( aes(xend=name, yend=0)) +
  labs(x="")

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(width=600,sidebarMenu( box(plotOutput("plot",height=525,width=525),height=550,width=550),
                               selectInput("stemmedw", label="Find A Word : ",wordlist))
  ),
  dashboardBody(tabPanel("News",uiOutput("news"))) 
)

server <- function(input, output) {
  output$news <- renderUI({
    input$stemmedw
  })
  output$plot <- renderPlot({
    plot
  })
}


shinyApp(ui = ui, server = server)